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Preface 


This document is unique in its detailed coverage of multi-language solutions in 
distributed database client/server environments. It provides comprehensive 
information about implementation of the DRDA connectivity across countries 
using different national languages, and it shows how the multi-language 
requirements are supported by the DB2 family of products. 

It contains setup and usage information, including all related system definitions 
for the different platforms involved. These were DB2 for VSE and VM, DB2 for 
OS/2 and DB2 for AIX and their respective client/server capabilities. 

This was a joint project between ITSO and ZPIZ (Institute for Pension and 
Disability Insurance of Slovenia) and accomplished successfully within 10 weeks 
of cross country teamwork. 


How This Redbook Is Organized 

The redbook is organized as follows: 

• Chapter 1, “Introduction” 

This chapter gives a brief overview of the project environment, the purpose 
of the project, the benefits of the project and how the ITSO and ZPIZ 
environments are set up for this project. It also gives an introduction to 
DRDA and CDRA. 

• Chapter 2, “Multi-Platform Considerations” 

This chapter provides information on how the different protocols are used 
among different types of connections and how multi-languages are supported 
by the DB2 family of products on multi-platforms. 

• Chapter 3, “VM/ESA Implementation” 

This chapter describes ITSO and ZPIZ software installation and steps to 
establish DRDA connectivity. The tasks for implementing SQL/DS for VM 
acting as both DRDA Application Server (AS) and DRDA Application 
Requester (AR) are described. 

• Chapter 4, “VSE/ESA Implementation” 

This chapter describes the most important setup tasks required to enable 
SQL/DS for VSE/ESA to perform DRDA AS functions. It must be pointed out 
that SQL/DS for VSE/ESA cannot act as a requester, as SQL/DS in the 
VM/ESA environment does. 

• Chapter 5, “OS/2 Implementation” 

This chapter describes experiences with workstation and host setup in DRDA 
multi-language environments between ITSO Boblingen and ZPIZ Ljubljana. In 
order to establish connections, communication controllers 3745 and 3174 
were used at the ITSO site and 3745/NCP at the ZPIZ site. 

• Chapter 6, “AIX Implementation” 
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This chapter describes the detailed steps and tasks to set up an AIX 
workstation acting as a DRDA AR using DB2 for AIX in a DRDA 
multi-language environment. DB2 for AIX also can act as a DRDA AS but 
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this feature was not used within our project. How to access DB2 for AIX as a 
database server via TCP/IP is shown in 2.1.2, “TCP/IP” on page 20. 

• Chapter 7, “Multi-Language Solutions” 

This chapter focuses on the customer side, and gives information about the 
connectivity parameters used at ZPIZ and ITSO, with related installation and 
customization steps. 

• Chapter 8, “REXX SQL Application Enabling and Usage” 

This chapter describes specific OS/2 REXX application capabilities and 
interfaces to the DB2 family of products. Specifically, the interfaces to remote 
databases residing on VM/ESA and VSE/ESA were tested. 

• Appendix A, “System Tables and Sample Programs” 

This appendix contains the system definition files used on the OS/2, VM and 
VSE platforms. 

• Appendix B, “Customization and Displays” 

This appendix contains the system definition and parameters used on the 
AIX platform to set up the DRDA connections. You will find here the SNA 
profile definitions, the DB2 for AIX database directory entries and some 
information needed when connecting to a DRDA AS on VM/VSE. 

• Appendix C, “Sample Code Pages” 

This appendix contains some code page samples. 
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Comments Welcome 


We want our redbooks to be as helpful as possible. Should you have any 
comments about this or other redbooks, please send us a note at the following 
address: 

redbook@vnet.ibm.com 

Your comments are important to us! 
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Chapter 1. Introduction 


1.1 Situation 

In the client/server environment, the different functions of information systems 
(data management, application logic, and presentation services) are separated 
and placed on the platforms that are regarded as the best place for these 
functions. There is already a prevalence of database tools that take advantage of 
the ease of use of the workstation, through GUIs and fourth-generation 
languages (4GLs), and still utilize the data and system management strength of 
traditional, host-based databases. 

At the same time, the distribution of data itself has given rise to client/server 
databases that integrate very well with spreadsheets, decision support 
applications and tools, and word processors. Users, meanwhile, continue to 
require access to corporate data remaining on the host. This situation has 
produced various alternatives in accessing different and remote databases with 
acceptable performance and ease. 

Gateway products provide a standard method of integrating data throughout the 
enterprise. A gateway shields users from the confusion of multiple and usually 
disparate forms and locations of the data. For some environments, meanwhile, 
gateways are the only option for data integration as a result of their 
heterogeneous hardware, software, network platforms, and standards or even 
languages and code pages. 

In this situation, it is more than probable that the users from different locations 
use different languages which are in different groups. For example, Latin-1 and 
Latin-2 are in different language groups. However, it must be possible for them 
to exchange data resulting in the correct representation at both ends. At the 
same time, customers also wish to pilot their database into the client/server 
environment, thereby setting up a prototype system for further use. With these 
goals in mind, the ITSO Boblingen coordinated this joint project using 
multi-platform and multi-language database client/server solutions with ZPIZ 
Slovenia, an IBM customer from the eastern part of Europe. 

This redbook documents all the technical aspects of this project. 


1.2 Objective 

To satisfy the criteria for the project, the IBM customer involved had to fulfill 
certain requirements regarding I/S infrastructure and be in a different language 
group than the ITSO. 

The specific objectives of the project are: 

• Connect locations exploiting available networking structure 

• Provide DRDA connectivity involving VM/ESA, VSE/ESA, OS/2, AIX using 
various protocols 

• Provide multi-language solutions for proper interpretation of data from client 
or server which use different character sets and code pages 
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• Provide techniques for data transformation to fulfill specific requirements, for 
example to alter the sorting sequence 

• Run applications against each other's data server 

• Enable skill transfer 

• Access remote data using REXX SQL applications 


1.3 The Current Environment 

In the Boblingen center, a distributed database environment using DB2 for OS/2, 
DB2 for AIX, and DB2 for VSE & VM has been built up. They have also 
established connectivity to remote database servers located in the U.S.A. using 
DRDA and TCP/IP type protocols crossing multiple networks. On the client side, 
various types of workstations with different customization and usage are 
installed. 

For this project, the customer requested OS/2 and AIX clients with or without a 
local database. In addition, a local database server only, optionally combined 
with DDCS for providing DRDA connectivity was a requirement. 

Figure 1 shows the implemented connectivity between the ITSO Boblingen, 
Germany and the customer, ZPIZ Slovenia. 

On the customer side, we used cloned clients based on OS/2, a local database 
server with DDCS for OS/2 and DB2 for VM & VSE. The VM system was also set 
up for DRDA application requesters to their own client applications and servers 
located in Boblingen. 
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Figure 1. Network Overview 

In this client/server environment, the following platforms are involved: 

• VM 

• VSE 

• OS/2 

• AIX 

• DOS/Windows 

Figure 1 includes almost all connectivity possibilities. ZPIZ connects to the 
remote ITSO Boblingen through the WAN. Locally, both ZPIZ and ITSO use the 
Token-Ring to set up their own network with multiple protocols, including APPC, 
TCP/IP and NetBIOS. For communications between DB2 for OS2 and DB2 for VM 
& VSE, APPC can be used. The DOS client can use NetBIOS or TCP/IP to connect 
to DB2 for OS2 or DB2 for AIX. 

The client can access different databases at the same time, irrespective of 
whether the database is local or remote or on which platform the database is 
located. For example, the client at ZPIZ can connect to their own databases or to 
databases which are in the ITSO system through the WAN. This is one of the 
great benefits of this client/server environment, especially for application usage. 
This type of connectivity is transparent to the application. There is no definition 
required in the application programs to describe this connectivity which, for 
example, supports application portability. 
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1.4 Code Page Considerations 

The customer ZPIZ requested to use database C/S solutions with countries 
located in the western part of Europe, belonging to language group Latin-1 and 
with countries located in the eastern part of Europe, belonging to language 
group Latin-2. 

DRDA (Distributed Relational Database Architecture) provides an architected 
solution to connect clients and servers on different platforms, perhaps located in 
different countries. DRDA combines various architectures to provide transparent 
access to the data. 


CDRA (Character Data Representation Architecture) provides automatic code 
page conversion if client and server are using different code pages. This 
support can be provided within each language group. 


Germany, USA and most of the western countries belong to group 1 (Latin-1), 
whereas Slovenia belongs to group la (Latin-2). The general problem was that 
at the time of running this project there was no automatic code page translation 
between the different language groups. Figure 2 shows this current situation, 
and in Appendix C, “Sample Code Pages” on page 245 are copies of the code 
pages from Latin-1 and Latin-2 countries. 



Figure 2. Current Situation 


The need for inter-group code page translation is driven by the ongoing 
implementations of C/S solution especially in countries which are based on 
Latin-2. There might be also an increasing need to involve other groups, such as 
Asian countries which are using various code pages based on DBCS (Double 
Byte Character Set). To combine all groups is a known requirement. The solution 
for this may be a Universal Character Set! However, this is beyond the scope of 
this document. 


4 Multi-Language Solutions 








With help from the IBM Lab in Toronto we were able to provide a solution for 
Latin-1 and Latin-2 code page conversion. This type of solution will be delivered 
in the next release of DB2 for Common Server V3. 

In order to connect to a database with an incompatible code page, the following 
steps need to be performed. Although this information is correct at this time (Nov 
'96), you should always check your DB2 manuals first, to see if there is more 
up-to-date information applicable to the same topic. 

1. Make sure you are using DB2 server V2.1.2 or above. 

2. Ask your IBM representative to obtain two conversion files for the pair of 
code pages that you want to support. For example, if you want to support 
connection between code page 819 and code page 915, you need 
08190915.cnv and 09150819.cnv tables. 

3. Place these binary files in the <DB2Path>/sqllib/conv directory on UNIX 
platforms such as AIX, and in the <DB2Path>/sqllib/conv directory on 
various Intel platforms such as OS/2 or Windows. 

4. If you are only using Common Server DB2 C/S products, you need to place 
these files only on the server. 

5. For connections between Common Server DB2 C/S and mainframe DB2 
implementations, such as SQL/DS or DB2/MVS, you need to first ensure that 
the corresponding DB2 host platform supports the same conversion. You 
only need the Host-to-Workstation conversion table on the workstation side. 

6. Once the connection between incompatible code page environments is 
established, you will get a warning message: 


SQL0863W A successful connection was made, but only single byte 
characters should be used. SQLSTATE=0153. 


Figure 3. Connection Information 

This is normal, and intended to warn you that you should only use the 
characters that exist in both code pages. 
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1.5 More Configuration Details 
1.5.1 The ITSO Environment 



Figure 4 shows part of the environment which is setup at the ITSO Boblingen to 
investigate multi-platform and multi-language DB C/S solutions. In this 
environment, the VSE system is installed as a guest system under a VM/ESA 
system. There are two VTAM systems; one installed in the VSE system and the 
other in the VM/ESA system. The VM/VTAM system is connected to the 3745 
NCP, which is linked to the WAN to link finally to the ZPIZ site. 

From a networking point of view when crossing multiple networks, (in this 
example, IBM Germany, IBM Austria, IBM Slovenia), it should be normal 
procedure to solicit the support of the people whose network you are using. 

Their help is invaluable with the proper definition of the involved VTAM members 
(for example, ADJSSCP) or authorization of your application LUs (for example 
IPFA2GL4), to let your session requests through to the final destination. 

From the client point of view, ITSO Boblingen has two communication controllers 
(3745 and 3174), which are channel attached to the business server. Both 
controllers are attached to the LAN T/R and can be used alternatively. 
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1.5.2 The ZPIZ Customer Environment 



Figure 5 illustrates the main software and hardware components involved in 
DRDA connectivity at ZPIZ. 

A VM/ESA 1.2.2 system is installed as a second level system and is connected to 
the first level VM/ESA 1.1.1 via a Virtual Channel-to-Channel Adapter (VCTCA). 

SQL/DS 3.5.0 for the VM database runs on a VM/ESA second level system. 

SQL/DS 3.5.0 for VSE runs on VSE/ESA 1.3.5 which is connected via VCTCA to 
the VM/ESA first level system. 

VM/VTAM on the VM/ESA first level system is connected via 3745 to Token-Ring 
and other SNA networks, such as IGN (International Global Network), and via 
VCTCA to the other VTAM systems. 

1.5.3 A Short Description of ZPIZ 

The following sections 1.5.3 to 1.5.6 were written by the customer ZPIZ. 

The very beginnings of the pension and disability insurance in Slovenia go back 
to the end of the previous century. These were various social subventions based 
on mutuality and were paid out by different associations and various private, 
guild insurances. 

Taking into consideration the fact that the Republic of Slovenia has been defined 
by the constitution as a social and legal state, the constitution represents, 
besides a general definition of the right to social security, a basis for legal 
regulation of social security branches. Consequently, the state regulates 
compulsory health, pension, disability as well as other social insurances 
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(unemployment insurance) by the statute in accordance with a constitutional 
regulation and also takes care of their implementation. 

The bearer and executor of pension and disability insurance in Slovenia is ZPIZ, 
which has the status of a public institution and covers by compulsory pension 
and disability insurance the entire territory of the Republic of Slovenia as a 
uniform risk group. The head of the Institute is in Ljubljana, whereas the service 
has been brought closer to the insured and pensioners through district offices 
and branch offices of the Institute. 

The Institute also functions as a contact agency with foreign insurance bearers, 
exercising insurance according to international agreements (conventions). 



1.5.4 ZPIZ Project Requirement 

• Establish a prototyping environment on database C/S using DRDA 

• Enable new types of applications using workstation capabilities 

• Enable skill transfer, especially for: 

- DRDA implementation 

- Multi-platform and networking 

- Security and administration 

- Project management 

• Gain multi-language experience 
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1.5.5 Project Conclusion 

Overall, the joint project was a great benefit to ZPIZ, especially in gaining 
experience in a comprehensive DB2 DRDA environment using multiple platforms 
and involving multiple code pages. 

The project team can justify much more realistically already settled ZPIZ 
strategic I/S directions and with confidence suggest new or modified ones. ZPIZ 
is now aware of the complexities, and very often hidden difficulties, they could 
face by going in the client/server direction. 

The project timeframe was from May 13th, 1996 till July 19th, 1996. It was 
concluded, as planned, in these 10 weeks. 


1.5.6 Benefits 

ZPIZ has implemented architected and open solutions, such as CDRA, DRDA and 
APPC, to gain all the benefits offered by these solutions. These benefits will not 
be repeated here as they are expressed in other places in this document. The 
project also offers the following advantages: 

• customized and documented DRDA client/server environment 

• prototyping system 

• enable new types of applications 

• network and location transparency 

• code page conversions from Latin-1 to Latin-2 and vice versa 

• multi-platform and multi-language experience 

• enhance skills and expertise 

• enhance existing security options 

• clear picture of the masked complexities 

• management of dispersed and independent geographies 

• establish peer contacts with IBM ITSO 

• become leading expert in an area 

• improve ZPIZ professional image 

• higher quality support for end users 

• enrich publishing and presentation skills and experiences 

• awareness of new skill requirements 

• awareness of management issues, such as data, systems and networking 

• awareness of security exposures and options 

The resulting documentation and established environment will be used as a 
prototyping system for establishing a comprehensive client/server database 
production environment and providing a framework for enabling new types of 
applications. 

The prototyping system will be used as an evolutionary system. This means that 
after the prototyping system is built and documented, it will be developed 
further, as business needs demand, until it is transformed into a production 
environment. The purpose of this prototyping system is to give the basic 
functions only; it does not go into such details as systems or data management. 
The prototyping system will be used as a tool for modeling, upon which the 
users will experiment with different ideas, decisions, database design. They will 
quickly be able to implement the changes to introduce better quality and 
suitability for the production distributed database and application environment. 
This prototyping system is, from the methodology point of view, similar to the 
simulation. It allows the testing of the complex system without any risk to the 
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production system. Its purpose is to be able to better predict the behavior of the 
production system and to examine more efficient solutions. 


1.6 DRDA Summary 

Distributed Relational Database Architecture (DRDA) is a set of protocols that 
allow transparent connectivity between RDBMSs (Relational Data Base 
Management Systems) on different platforms, whether they are in different 
rooms or on different continents. DRDA coordinates communication between 
systems by deriving what must be exchanged and how it must be exchanged. 

DRDA is a robust software architecture that protects data integrity and security. 
At this time, DRDA describes two levels of distribution: RUW (Remote Unit of 
Work) and DUW (Distributed Unit of Work). 

RUW allows an application to access one database server within one unit of 
work (transaction), DUW allows an application to access more than one database 
server within one unit of work, that is, the application can switch between 
database servers before committing the data. This gives an application the 
ability to involve multiple (distributed) database servers at the same time. 

DRDA is transparent to the application programs. This means there are no 
definitions required within the application programs. This is an important 
advantage, for example providing application portability. 

1.6.1 What Architectures are Used by DRDA 

• System Network Architecture (SNA) 

Describes the rules on which products agree when exchanging data. 

• Distributed Data Management Architecture (DDM) 

Describes the model of the database environment. It provides command 
parameters, data objects and reply messages that work as an intermediate 
language which all systems understand. 

• SNA Management Services Architecture (MSA) 

Transfers and manages alerts. It defines a method of sending and recording 
error messages. 

• Formatted Data Object Content Architecture (FD: OCA) 

Provides a description of the data with information about data types and 
representation. 

• Character Data Representation Architecture (CDRA) 

Provides character data integrity when data is transmitted between systems 
with different code pages and character representation. 

1.6.2 DRDA Terminology 

In a DRDA environment, there are three different roles: client, application 
requester and application server. Figure 7 illustrates the relationship between 
these three roles. Every database platform can play more than one role for 
different applications at the same time. So it may be that DB2 for AIX is acting as 
an AS for an OS2 application and, at the same time, as an AR for the AIX 
application connecting through DRDA to a VSE system. 
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Client Application Requester Application Server 


Figure 7 . DRDA Database Roles 

• Client is the component that runs the application program which issues SQL 
statements to request the data. 

• Application requester is the code that handles the application end of a 
distributed connection. For example in a workstation environment, the DDCS 
product functions as an AR on behalf of application programs. 

• Application server is the code that handles the database end of the 
connection. It performs database operations for the client and sends the 
results back to the requesting client or AR. 

1.6.3 Products Required to Support DRDA 

This depends on the platform (MVS, VM, VSE, OS/2, AIX and others), whether 
you are AR or AS and your connectivity and networking requirements. This 
means database C/S solutions in general can be planned, implemented and 
used according to indicated customer requirements. More details on these 
aspects are available in the DRDA library. Please refer also to the publication 
Distributed Relational Database Cross Platform Connectivity and Application , 
SG24-4311. 


1.7 Multi-Language Considerations 

The problem situations associated with exchanging data in multi-platform, and 
especially in combination with multi-language environments, have evolved with 
the data processing industry. The primary problem starts from the need to 
handle a variety of different character sets and the different encoding schemes 
used to represent them. This variety exists for historical reasons. 

CDRA provides the foundation to address this need and permits systems and 
application systems to achieve consistent processing, interchange and 
presentation of graphic character data. 

CDRA defines a consistent method for data identification by: 

• describing code page and character sets by a Coded Character Set ID 
(CCSID). 

• defining consistent conversion mapping to manage presentation of graphic 
character integrity as data is interchanged among any pair of databases. 
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1.8 CDRA Overview 


1.8.1 Background on Data Interchange 

People communicate with one another using mutually understood languages, 
which are generally based on well-defined alphabets. An alphabet can be 
thought of as a collection of symbols or graphic characters that have 
well-defined meanings. 

Computer networks must also deal with the problem that not all computers have 
the same repertoire of graphic characters. For example, the Personal Computer 
handles characters unknown to the host (mainframe), and a host in the US does 
not recognize some of the characters of a host in Greece. 

Figure 8 shows how the $ and 0 symbols entered in a host in the US may appear 
on host computer screens in other countries. 



Application or product-specific solutions are not adequate. What is needed is an 
architecture that can lead to consistent cross-system support for the 
management of data integrity. Character Data Representation Architecture 
(CDRA) provides the foundation to address this need. 
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1.8.2 Requirements Summary 

IBM recognizes a common set of requirements concerning the management and 
processing of coded graphic characters. These are summarized as follows: 

• Facilitate the preservation of the meaning of coded graphic characters 

• Provide support for a consistent set of coded graphic characters within and 
across IBM systems 

• Reduce the proliferation of coded graphic character sets and code pages 

• Provide an identification mechanism for coded graphic characters 

• Provide necessary resources in support of the identification mechanism 

• Provide for migration and coexistence support 

1.8.3 The Solution is Character Data Representation Architecture 

CDRA is an IBM architecture that permits system and application software to 
achieve consistent processing, interchange, and presentation of graphic 
character data in System Application Architecture (SAA) environments. It is also 
applicable to other computing environments. CDRA supports the principle of 
data and application independence, which is a vital requirement of distributed 
computing environments. 

CDRA addresses the requirements stated previously for coded graphic character 
management, by providing: 

• An identification mechanism and associated supporting resources 

• Functions such as tagging to associate the identifier with data and 
applications 

• Tables necessary for consistent code point conversion of coded graphic 
character data 

• Recommended strategic coded graphic character sets 

Identification Mechanism 

The identification mechanism defined by CDRA is used to specify the identity of 
graphic character data, and to uniquely refer to this data at any place in a 
system. It can be thought of as providing additional information to eliminate the 
ambiguity inherent in the binary code point. This identification mechanism has 
two forms: 

• The short form is a fixed-length two-byte identifier, known as the Coded 
Character Set Identifier (CCSID), which represents the elements of the 
long-form identifier 

• The long form is a variable length identifier, composed of multiple elements: 

- Encoding scheme identifier (ES) 

- Character set identifier (CS) 

- Code page identifier (CP) 

- Further (CS, CP) elements as needed for each additional pair of 
character set and code page identifiers 

- Additional coding-related information (ACRI) 


Chapter 1. Introduction 13 



Tagging 


Products implementing CDRA associate the CDRA identifiers with the data 
objects they manage. This 'tagging' of data objects is the method used to identify 
the meaning of the coded graphic characters in the object. This allows a graphic 
character that has different code points assigned in different machine types to 
maintain its meaning. 

Code Point Conversion 

CDRA describes how to manage the representational differences in coded 
graphic characters, and the criteria to be used for the creation of character 
conversion tables and methods. 

Strategic Coded Graphic Character Sets 

CDRA defines the SAA character sets and code pages that can be used to 
minimize differences in coded graphic character representations and related 
potential data loss. 

Architecture Strategy 

CDRA addresses a complex set of coded graphic character problems that are 
fundamental to computing and are manifested throughout computing systems. 
The architected solution is segmented in such a way that it can be implemented 
in manageable steps and can be extended to accommodate future requirements. 

The elements of the architected solution are the Architecture Base, Character 
Set Groups, and Levels. 

• Architecture Base 

This defines the set of identifiers, services, resources, and processing 
guidelines to resolve current problems, and can be extended to address 
future needs. 

• Character Set Groups 

Character set groups are selected character sets categorized into groups 
and subgroups according to their common properties (such as countries and 
languages). A selected few of these are defined as SAA Character Sets for 
each group or subgroup. 

• Levels 

The Levels segment the architecture into function sets. Level 1 
encompasses the elements of the architecture needed to deal with standard 
character sets that are currently being used. The primary objective is to 
achieve character data integrity and consistent processing among SAA 
environments within a country or group of countries that have a common 
character set. 

Future levels will extend the architecture to provide a global solution to the 
character data integrity problem. A global large character set supported 
with the appropriate identifier, services and resources will be the basis for 
processing and data interchange across system and country boundaries. 
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1.8.4 Architecture Benefits 

CDRA provides a comprehensive method of data identification that permits 
unambiguous interpretation of coded graphic characters for correct and 
consistent data handling. 

It defines consistent code point conversion rules and tables to be used during 
data interchange between different computing environments. 

It specifies strategic character sets and code pages that minimize the need for 
code point conversions, and permit preservation of graphic character integrity. 

It also provides an extendable base for migration to a global character data 
solution. 

The benefits of CDRA increase substantially as the number of implementing 
products grows within the SAA environments. Also, since the architecture is not 
unique to SAA, similar benefits may be realized through product implementation 
in other environments. 

The following CDRA publications provide technical descriptions and 
specifications for both Western and Far-East countries: 

• Character Data Representation Architecture - Level 1, Reference, SC09-1390 
describes the rationale, strategy, and concepts behind the architecture. It 
also provides the details pertinent to Level 1 of the architecture. 

• Character Data Representation Architecture - Level 1, Registry, SC09-1391 is 
the CCSID registry. It also contains CDRA conversion tables and guidelines 
for their generation. 
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Chapter 2. Multi-Platform Considerations 


2.1 Connectivity 

Today, there are many communication protocols in the world. When you set up 
your own network, which one you should use depends on what platforms and 
products you have already, and which functions you want to support in the near 
future. In our scenarios, we use the following communication protocols: 

• DRDA 

• APPC 

• TCP/IP 

• NetBIOS 

For your general information, currently the DB2 family consists of the following 
base products: 

DRDA 
Servers 


SQL/DS (VSE) 

SQL/DS (VM) 

DB2 for MVS 
DB2 for OS/400 
DB2 for AIX 
DB2 for OS/2 
DB2 for Solaris 
DB2 for HP UX 

The family also includes complementary products such as IBM's Data 
Replication solutions or Query solutions and the DB2 family continues to grow. 

Any requester can be connected to any server with the appropriate 
communications protocol, and as business needs change, the system 
implementation can change with little impact to the existing applications. This 
table shows you the supported communication protocols used between DB2 
clients and the related DDCS gateways. 


Requesters 

Client 

Application 

Enablers 

Communications 

Protocols 

SQL/DS (VM) 

DB2 for AIX 

LU 6.2 

DB2 for MVS 

DB2 for OS/2 

APPC/APPN 

DB2 for OS/400 

DB2 for Windows 

NetBIOS 


DB2 for DOS 

TCP/IP 


DB2 for HP UX 

DB2 for Solaris 

IPX/SPX 
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Table 1. Supported Communication Protocols 

DB2 

Protocols 

DDCS 

DDCS 

DDCS 

DDCS 

Clients 


OS/2 

AIX 

HP-UX 

Sun 

Solaris 

DOS 

NetBios 

Yes 

No 

No 

No 

VI .2 

IPX/SPX 

Yes 

Yes(1) 

Yes(2) 

Yes(2) 


TCP/IP 

Yes 

Yes 

Yes 

Yes 


APPC 

No 

No 

No 

No 

OS/2 

NetBios 

Yes 

No 

No 

No 

V2.1 

IPX/SPX 

Yes 

Yes 

No 

No 


TCP/IP 

Yes 

Yes 

Yes 

Yes 


APPC 

Yes(3) 

Yes 

No 

No 

Windows 

NetBios 

Yes 

No 

No 

No 

V2.1 

IPX/SPX 

Yes 

Yes 

Yes 

Yes 


TCP/IP 

Yes 

Yes 

Yes 

Yes 


APPC 

No 

No 

No 

No 

AIX 

NetBios 

No 

No 

No 

No 

V2.1 

IPX/SPX 

No 

No 

No 

No 


TCP/IP 

Yes 

Yes 

Yes 

Yes 


APPC 

No 

No 

No 

No 

HP-UX 

NetBios 

No 

No 

No 

No 

V2.1 

IPX/SPX 

No 

No 

No 

No 


TCP/IP 

Yes 

Yes 

Yes 

Yes 


APPC 

No 

No 

No 

No 

Solaris 

NetBios 

No 

No 

No 

No 

V2.1 

IPX/SPX 

No 

No 

No 

No 


TCP/IP 

Yes 

Yes 

Yes 

Yes 


APPC 

No 

No 

No 

No 


1. Supported natively by DB2 for AIX, and also provided by FireFox, Inc. NOV*IX 
for NetWare product. 

2. Provided by FireFox, Inc. NOV*IX for NetWare product. 

3. If the SNA network supports APPN, DB2 Client for OS/2 can also participate 
in the APPN network. 


2.1.1 DRDA 

The DB2 family of products implements DRDA. In our environment, we installed 
the following DB2 products on different platforms: 

• SQL/DS for VM and VSE V3.5 

• DB2/6000 for AIX V 2.11 

• DB2/2 for OS2 V 2.11 

Figure 9 illustrates the ITSO DRDA database configuration and the possibilities 
to access each other's data. 
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Figure 



9. ITSO DRDA Database Configuration 

The OS/2 application (PGM-O) can access its own local database, and the other 
databases located on the different platforms (VM, VSE, AIX) through DRDA 
connection, that is, through the AR in OS/2 and the AS on the VM, VSE or OS/2 
platforms, marked 1, 2 and 3 in Figure 9. At the same time, this DB2/2 on the 
OS/2 platform can function as an AS handling the requests from other ARs to 
access its database, shown as A and B in Figure 9. 

The one exception is that the DB2 for VSE can only be an AS. Therefore, the 
VSE application can only access its own database, or databases under VM using 
VM/VSE Guest Sharing which is a not-architected, "private" solution. 

Figure 10 shows the entire ITSO and ZPIZ DRDA environments for your 
information. 
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Figure 10. DRDA Database Configuration between ITSO and ZPiZ 


2.1.2 TCP/IP 

Transmission Control Protocol/Internet Protocol (named TCP/IP after its two 
main standards) is a set of protocols that can be used to communicate across 
any set of interconnected networks called 'Internets". 

The TCP/IP protocol set consists of four functional layers: 

• The Application Layer 

Provides for application-to-application cooperation on the same host, 
network or across a set of interconnected networks. Examples are Telnet 
(protocol for remote terminal connection), FTP (File Transfer Protocol) and 
SMTP (Simple Mail Transfer Protocol) for electronic mail. 

• The Transport Layer 

Provides for reliable end-to-end data transfer. Protocol examples are 
Transmission Control Protocol (connection-oriented) and User Datagram 
Protocol (connectionless). 

• The Internet Layer 

Represents the internetwork that provides for fast connectionless data 
transfer between two network nodes. The most important protocol in this 
layer is IP. 
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The Network Interface Layer 


Interfaces to the actual network hardware. TCP/IP supports many network 
interfaces, for example IEE802.2 for LANs and X.25 for packet switching 
networks. 

For more information about TCP/IP, please refer to the following manual: TCP/IP 
Tutorial and Technical Overview, GG24-3376. 

In our environment, we created two files in directory C: TCPIP\ETC on the client 
side. These are the HOSTS and SERVICES files. 


9.164.178.103 itsol 


Figure 11. HOSTS File 


DB2AIX 2570/tcp 

DB2AIXI 2571/tcp 


Figure 12. SERVICES File 

Figure 13 shows the relation between the parameters of the server (AIX) and the 
client (OS/2). 
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CLIENT 


SERVER 



Figure 13. TCP/IP Parameters in ITSO Environment 

2.1.3 Others Protocols 

The other protocols used in conjunction with DB2/2 are described below: 

• APPC 

Advance-Program-to-Program Communications is an implementation of SNA 
LU 6.2 and is used for Peer-to-Peer communications. 

• NetBIOS 

NetBIOS is an API between a local area network adapter and programs and 
is the preferred communication protocol for LAN connection because of less 
memory usage on the client workstation and simplified database 
communications configuration. 

In our environment, all the connections between host (VM/VSE) and workstation 
(AIX, OS/2 and DOS/Windows) are using APPC protocol. 

From the host side, we customized the following products to support APPC 
connections: 

• AVSVM and VTAM in the VM system 

• VTAM and CICS in the VSE system 
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• NCP definition 

• 3174 customization 

Please see Appendix A, “System Tables and Sample Programs” on page 191 for 
details. 

From the workstation side, we configured the following parts: 

• CM/2 in OS/2 

• SNA server/6000 in AIX 

• MS SNA server in DOS/Windows 

There are two paths for a workstation to connect to the host; one is through the 
3745, the other is through the 3174. But only one of them can be activated at any 
one time; if you want to change the path, you have to restart CM/2 in OS/2 or 
SNA Server/6000 in AIX. 

The NetBIOS protocol is used to set up the connection between workstations, 
such as OS/2 and DOS/Windows. The following parameters are used in our 
environment. 


CLIENT 


SERVER 


NetBIOS Node 


Name 

db2netb1 

Protocol 

NetBIOS 

workstation 

name 

db2inst1 

Adapter 

0 


NetBIOS client database 


DB manager 
configuration file 

- | nname | db2inst1 j 


Alias 

samplef 

Name 

samplef 

'Location 

db2netb1 


DB2 directory 


database I samplef 


Figure 14. Parameter for NetBIOS Protocol 


For more information, please see the manual Installing and Using DB2 Clients for 
Windows. 
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2.2 Multi-Language Support Requirements 

A brief description of appropriate terminology follows: 

• Code page 

A set of assignment of characters to code points. The code pages have 
numeric identifiers, for example, 500 is the International code page. 

• Code Character Set 

A set of characters in which there is a one to one relationship between the 
characters and their coded representations. These character sets also have 
numeric identifiers. Several code pages can use the same character set. For 
example, code pages 37 (English), 273 (German) and 500 (International) are 
some of the code pages that use character set 697. However, these code 
pages do not necessarily use the same subset of the character set. 

• CCSID 

Code Character Set Identifier, a 16-bit number that includes an encoding 
scheme identifier, character set identifier, code page identifiers, and other 
information that uniquely identifies the coded character representation used. 
For single and double byte CCSIDs, the CCSID is generally the same as the 
code page. For example, the CCSID for the International code page is 500. 

2.2.1 Support for Different Code Pages 

There are many different code pages due to the different languages. In Table 2 
you can see some of the supported code pages and the character set groups to 
which they belong. It is not a comprehensive list of the code pages supported. 


Table 2. Code Page Support 

Character Set Group 

Supported Code Pages 

Group 1: Latin-1 

37, 273, 277, 278, 280, 284, 297, 500, 437, 819, 

850, 863, 1004, 1051, 1252, 1275 

Group 1 a: Arabic 

420, 864, 1046, 1089, 1256, 4960 

Group la: Cyrillic 

855, 866, 915, 1025, 1251, 1283, 4951 

Group 1 a: Latin-2 

852, 870, 912, 1250, 1282, 4948 

Group 1 a: Greek 

813, 869, 875, 1253, 1280 

Group la: Hebrew 

424, 862, 916, 1255 

Group 2: Japanese 

932, 942, 943, 954, 5035 

Group 2: Korean 

933, 949, 970 

Group 2: Simpl. Chinese 

836, 837, 935, 1381, 1383 

Group 2: Trad. Chinese 

835, 937, 938, 948, 950, 964, 28709 

Group 2: Thai 

838, 874 

Group 1 a: Turkish 

857, 920, 1254, 1281 


When you start a database server or create a new database, you can choose 
different code pages which are suitable for your environment. This is very useful 
for those who have specific requirements, for example when a special character 
such as, n, n or Y is needed. 
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2.2.2 Conversion Between Different Code Pages 

Different systems represent data in different ways with different code pages. 
When data is moved from one system to another, data conversion is required if 
they use different code pages. The DB2 family of products supports such data 
conversion. 

Conversion of numeric data depends on how a specific data type is represented 
on the sending and receiving systems. This kind of conversion is built into the 
database products and is transparent to the user. 

Character conversion is done in accordance with DRDA. The conversion is 
always done on the receiving system. This is true for DRDA connectivity where 
the host system and the DDCS product are involved. For Common Server C/S 
connectivity, for example if OS/2 is the client and AIX is the server or vice versa, 
the conversions are always done by the server. 

Performance should always be a major concern as character conversion can 
have an adverse affect on it. To avoid or minimize such conversion, choose the 
same CCSID for the AS and AR, although this is not always possible. Investigate 
whether you can use the International (CCSID=500) character set when you are 
supporting different languages. This character set includes many different 
languages and as such helps minimize character conversion. 

2.2.3 Support for Alternate Collating Sequences 

The database manager compares character data using a collating sequence. 

This is an ordering for a set of characters that determines whether a particular 
character sorts higher, lower, or the same order as another. 

The country code and the code page are used to determine the default collating 
sequence that will be used for the database. This default collating sequence may 
be explicitly overwritten. The DB2 family of products provides related parameters 
or APIs to overwrite the default collating sequence. 

The differences between EBCDIC and ASCII cause differences in sort orders in 
the various database products, and also affect ORDER BY and GROUP BY 
statements. One way to minimize these differences is to create a user-defined 
collating sequence that reflects the EBCDIC sort order. This collating sequence 
can by specified only when creating a new database. 


2.3 DB2 Multi-Language Support for VM/VSE 

In the VM/VSE environment, in order to allow DB2 to support multi-languages, 
the following changes have been made: 

• New preprocessing options have been added to support CCSID. 

• A CCSID integer parameter has been added to the CREATE TABLE and 
ALTER TABLE statements. 

• The DESCRIBE statement has been enhanced to return information in the 
SQLDA regarding the CCSID of a column. 

• Additional rows have been added to the catalog tables: 

SYSTEM.SYSCOLUMNS 
SYSTEM.SYSKEYCOLS 
SYSTEM.SYSOPTIONS 
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SYSTEM.SYSCHARSETS 
SYSTEM. SYSCCSID 
SYSTEM.SYSSTRINGS 

2.3.1 Support for Different Code Pages 

DB2 for VM & VSE is shipped with different CCSIDs to support different code 
pages. A system wide default CCSID can be specified. Users can override this 
system default for their virtual machine, and specify a special CCSID for a 
particular column. The following table is the list of the CCSIDs available with 
SQL/DS V3.5, by selecting on the SQL/DS system table SYSTEM.SYSCCSIDs. 


CCSID 

SUBTYPE 

SBCSID 

37 

S 

0 

273 

S 

0 

277 

s 

0 

278 

s 

0 

280 

s 

0 

284 

s 

0 

285 

s 

0 

290 

s 

0 

297 

s 

0 

300 


0 

420 

s 

0 

423 

s 

0 

424 

s 

0 

500 

s 

0 

833 

s 

0 

834 


0 

835 


0 

836 

s 

0 

837 


0 

838 

s 

0 

870 

s 

0 

871 

s 

0 

875 

s 

0 

880 

s 

0 

930 

M 

290 

933 

M 

833 

935 

M 

836 

937 

M 

28709 

939 

M 

1027 

1025 

S 

0 

1027 

S 

0 

4396 


0 

5026 

M 

290 

5035 

M 

1027 

28709 

S 

0 

65535 

B 

0 


DBCSID CHARNAME 


0 ENGLISH 
0 GERMAN 

0 DANISH-NORWEGIAN 
0 FINNISH-SWEDISH 
0 ITALIAN 
0 SPANISH 
0 UK-ENGLISH 
0 290 
0 FRENCH 
0 

0 ARABIC 
0 G REEK -423 
0 HEBREW 
0 INTERNATIONAL 
0 833 
0 
0 

0 836 
0 

0 THAI 
0 870 

0 ICELANDIC 
0 GREEK 
0 CYRILLIC-880 
300 930 

834 KOREAN 
837 S-CHINESE 

835 T-CHINESE 
300 939 

0 CYRILLIC 
0 1027 
0 

4396 KATAKANA 
4396 JAPANESE-ENGLISH 
0 28709 
0 


Figure 15. CCSIDs and CHARNAME Supplied with SQL/DS 

The subtype value can be: 

B for bit data 

M for a mix of single-byte and graphic data (double-byte) 

S for single-byte 

BLANK for anything other than non-character 
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The CCSIDs can be specified in the following places: 

1. In the VM system, you can specify the CHARNAME parameter in the 

SQLSTART statement, to identify the CCSID you want to use. For example: 


EXEC SQLSTART DBNAME (SQLVMDBO) DCSSID (SQIDBA) PARM (PROTOCOL=AUTO, CHARNAME=INTERNATIONAL) 

ARI0015I SYSMODE parameter value is M. 

ARI00151 EXTEND parameter value is N. 

ARI0015I CHARNAME parameter value is INTERNATIONAL. 

ARI0015I DBNAME parameter value is SQLVMDBO. 

ARI0015I RESID parameter value is SQLVMDBO. 


ARI0282I LUW UNDO is conpleted. 

ARI0281I LUW REDO is conpleted. 

ARI0143I The application server has been initialized 
with the following values: 

CHARNAME = INTERNATIONAL, DBCS = NO, CHARSUB = SBCS, 
CCSIDSBCS = 500, CCSIDMIXED = 0, CCSIDGRAPHIC = 0. 
ARI0134I Application server SQLVMDBO has been 
identified as a global resource. 

ARI0060I SQL/DS initialization complete. 

ARI00451 Ready for operator communications. 


Figure 16. SQLSTART Example 

In the VSE system, you can specify the CHARNAME parameter in the 
ARISQLDS statement, to identify the CCSID you want to use. For example: 


EXEC ARISQLDS,SIZE=AUTO,PARM=<tDBNAME=SQLVSDBl,STARTUP=W,LOGM3DE=Y, 
NCUSERS=15, RMTUSERS=5, CHARNANE=INTERNATIONAL<: 


Z1 0045 ARI02821 LUW UNDO is conpleted. 

Z1 0045 ARI0281I LUW REDO is conpleted. 

Z1 0045 ARI0143I The application server has been initialized 
with the following values: 

CHARNAME = INTERNATIONAL, DBCS = NO, CHARSUB = SBCS, 
CCSIDSBCS = 500, CCSIDMIXED = 0, CCSIDGRAPHIC = 0. 

Z1 0045 ARI0060I SQL/DS initialization complete. 

Z1 0045 ARI0045I Ready for operator communications. 


Figure 17. ARISQLDS Example 

2. A user can enter the SQLINIT command to specify a CHARNAME, and 
thereby CCSIDs, for his virtual machine environment. The following 
command will establish the international character set as the single-byte 
default for the user machine. 

SQLINIT DB(SQLVSDBI) PROTOCOL(AUTO) CHARNAME(INTERNATIONAL) 

3. In the SQLPREP EXEC, you can specify the CCSID(x) parameter as one of the 
preprocessing options. 

4. In the CREATE TABLE and ALTER TABLE command, the CCSID parameter is 
added to enable users to specify the CCSID on a column level. 


Chapter 2. Multi-Platform Considerations 27 









Figure 18. Relationship of the Four Ways to Specify the CCSID 


2.3.2 Conversion Between Different Code Pages 

When accessing the database using different code pages and/or character sets 
and/or encoding schemes, in order to get meaningful data, a conversion 
between the different code pages must be done. SQL/DS and DB2 support such 
conversion; it is transparent to the user. 

The conversion between different code pages is performed based on the 
information in the SYSTEM.SYSSTRINGS catalog table. This table contains all the 
conversion tables available for this SQL/DS system. Below is an extract from the 
SYSSTRINGS table. 

INCCSID OUTCCSID TRANSTYPE ERRORBYTE SUBBYTE TRANSPROC 


273 500 SS 

500 273 SS 


The conversion must be two ways, for example, if you have the conversion from 
source CCSID 273 to target CCSID 500, you also have to have the conversion 
from source CCSID 500 to target CCSID 273, otherwise, the conversion is 
meaningless. 

For each combination, there are: 

• Conversion tables and/or routines for the pairs that require conversion 

• An indication of whether any code points in the source can result in an error 

• An indication of whether any code points in the source can be mapped to a 
substitution character 
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The conversion will obey the following rules: 


• CCSID Conversion Rules for Data Value Assignment 

When assigning a host variable value to a column, the following conversion 
rules apply: 

- If the CCSID of the value matches the CCSID of the column, the value is 
assigned without conversion. 

- If the data subtype of either the source or the target is BIT, the value will 
be assigned without conversion. 

- If the source value is either NULL or an empty string, the value is 
assigned without conversion. 

- If SYSSTRINGS contains an entry indicating no conversion is needed, the 
value is assigned without conversion. 

- If there is no entry for the CCSID pair in SYSSTRINGS, the value is not 
assigned and will result in an error. 

- If SYSSTRINGS contains an entry indicating conversion is needed, the 
source value is converted to the coded character set of the target column 
before the assignment is performed. 

• CCSID Conversion Rules for Internal Data Movements 

For internal data movements, the rules that apply to data input also apply. 
The rules for concatenation are: 

- Concatenation of mixed and SBCS is mixed 

- Concatenation of mixed and BIT is BIT 

- Concatenation of SBCS and BIT is BIT 

- If any of the operands are “mixed,” the resulting data type is VARCHAR 

When concatenating two or more values with different CCSIDs, the CCSID of 
the result is determined at bind time. For each pair of CCSIDs, the resulting 
CCSID is determined by the first match of the following: 

1. If the two CCSIDs are the same, the resulting CCSID will be the same. 

2. If one of the values is BIT, then the final result will be BIT. 

3. If one value is SBCS, and the other is MIXED, the resulting CCSID will be 
that of the mixed value. 

4. If one value is from a column and the other is not, the resulting CCSID is 
that of the column. 

5. If one value is a string constant or special register, and the other is a 
derived string or host variable, the resulting CCSID is that of the string or 
special register. 

6. If one value is a derived string and the other is a host variable, the 
resulting CCSID is that of the derived string. 

7. In other cases, the resulting CCSID is that of the first value. 

All the rules for concatenation also apply when two or more columns with 
differing subtypes or CCSIDs are involved in: 

- UNION within a SELECT 

- UNION all within a SELECT 

- The VALUE scalar function 

• CCSID Conversion Rules for Data Comparison 

The rules for data comparison are similar to those used for conversion on 
data value assignment. 
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1. Comparison is done without conversion if: 

- The CCSIDs of the two values match 

- The subtype of either value is BIT 

- Both values are empty strings 

- Both values are NULL 

2. Conversion will be performed before comparison and involves the 
following steps: 

a. Determine which value is subject to conversion. This choice is based 
on the following hierarchy: 

- If one value is SBCS and the other is MIXED, the SBCS value is 
subject to conversion. 

- If one value is from a column and the other is not, the 
non-column value is subject to conversion. 

- If one value is a string constant or special register and the other 
is a derived string or host variable, the derived string or host 
variable is subject to conversion. 

- If one value is a derived string and the other is a host variable, 
the host variable will be subject to conversion. 

- In other cases, the second operand is subject to conversion. 

b. SQL/DS will search the SYSSTRINGS table using the CCSID of the 
value subject to conversion as the INCCSID, and the CCSID of the 
other value as the OUTCCSID. Conversion will be performed based 
on the row found for the CCSID pair in the SYSSTRINGS table, with 
the following exceptions: 

- If there is no entry for this CCSID pair in the SYSSTRINGS table, 
then an error is raised. 

- If the entry indicates that the CCSID pair does not require 
conversion, then the comparison will be done without conversion. 

CCSID conversion is handled by DB2 and is transparent to end users. However, 
application programmers should be aware of the CCSID conversion rules if the 
application has the requirement to manipulate CCSIDs with host variables, 
perform data comparisons, or concatenation for data with differing CCSIDs, since 
the result may be affected by CCSID conversion. 

In SQL/DS, you can define your own character set for special reasons. But we 
strongly recommend you to use the CCSID shipped with the system if possible 
as a user defined CCSID or character set will limit the portability of your 
applications. 

For more information, please see 3.3.3, “Defining Slovenian Character Set” on 
page 62 or Distributed Relational Database Cross Platform Connectivity and 
Application SG24-4311. 

2.3.3 Support for Alternate Collating Sequences 

In SQL/DS, you can use field procedures to change the collating sequences for a 
column. A field procedure is a user-written exit routine and is called when a 
table is created or altered. 

To assign a field procedure to a new column, include the FIELDPROC clause on 
either the CREATE TABLE or ALTER TABLE statement. For the syntax diagrams 
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for the CREATE and ALTER TABLE statements, refer to the SQL/DS Reference 
manual. Figure 19 is the fieldproc-block of those diagrams. 


□□ noDArt_ _ ^ 

w— ritLur nw 

pvyiom-1 icjiiiq - 

( ’ 

3 

--constant- 

1 — 



Figure 19. FIELDPROC-block Syntax 


If you assign a field procedure to a column, it is called whenever values in that 
column are changed or are inserted, and it encodes the original value into one 
value that sorts correctly. 

The following rules must be obeyed when writing field procedures: 

• It must be written in Assembler. 

• Its name must not start with ARI, to avoid conflict with the SQL/DS modules. 

• It must not call any SVC services. 

• It must store registers in an area pointed to by R13, and restore them before 
returning. 

• It must be serially reusable. 

• It must not contain any SQL statements. 

• It must reside in the appropriate VSE library(VSE)/minidisk(VM) and be 
accessible when the database manager is running. 

• It must support 31-bit addressing when the VSE system is running in ESA or 
VM/ESA supervisor mode. 

A sample of coding FIELD PROCEDURE SLOSORT is presented in A.3, “Field 
Procedure Sample” on page 199. For more information about coding field 
procedures, please see the following books:. 

• System Administration for VSE/VM GFI09-8096/GH09-8084 

• Application Programming for VSE/VM SH09-8098/SFI09-8086 

The values in columns with a field procedure are described to the database 
manager in the following catalog tables: 

• SYSTEM.SYSCOLUMNS 

• SYSTEM. SYSFIELDS 

• SYSTEM.SYSFPARMS 

• SYSTEM.SYSKEYCOLS 

For more information about catalog tables, see the SQL/DS Reference manual. 


Chapter 2. Multi-Platform Considerations 31 






2.4 DB2 Multi-Language Support for OS/2 

DB2/2 also can support multiple CCSIDs, but it's very limited as you cannot add 
additional CCSIDs or conversion tables in DB2/2. After you install DB2/2, all 
CCSIDs and conversion tables which can be supported are fixed, this is true for 
all releases up to and including DB2/2 M2. 

2.4.1 Support for Different Code Pages 

You can use the command chcp to check how many different code pages can be 
supported in your DB2/2 environment. For example: 


C: chcp<enter> 

Figure 20. Check the Code Page 


gives you the message 


Active code page: 850 


Prepared system code pages: 

437, 850 


Figure 21. Result of Checking the Code Page 

In our example, you can see that there are two code pages supported, 437 and 
850. One of them is currently in use. You cannot install an additional code page 
after you have finished the DB2/2 installation. 

You also can use this command to change the active code page. For example: 


chcp 437<enter> 
chcp<enter> 

Figure 22. Change the Code Page 


gives you the message 


Active code page: 437 


Prepared system code pages: 

437, 850 


Figure 23. Result of Changing the Code Page 


2.4.2 Conversion Between Different Code Pages 

DB2/2 also supports the conversion between different code pages although this 
support is very limited. Therefore, when you issue the command CONNECT TO 
database to establish the connection with the AS, if the conversion is not 
supported, the connection will not be established. For example: 


C: chcp 


Active code page: 437 


Prepared system code pages: 

437, 850 


Figure 24. Current Code Page in DB2/2 
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sqlinit query 

ARI0717I Start SQLINIT EXEC: 10/17/96 11:16:37 CET. 

S ELE CTED TABLE IS: SQL/DS 
DBNAME=SQLVMDBO 
DBCS=NO 
SYNCHRONOUS=NO 
DATEFORMAT=ISO 
TIMEFORMAT=ISO 
TRACERA=00 
T iDAT ET ,FiN =0 
LTIMELEN=0 
RELEA SE=3.5.0 
WORK(JNIT=YES 
QRYBLKSIZE=8 
PROTOCOL=SQLDS 
CHARNAME=870 
CCSIDSBCS=870 
CCSIDMIXED=0 
CCSIDGRAPHIC=0 
TRACEDRRM=0000 
TRACECCNV=0 
SSSNAME=ARIQSTAT 

ARI0796I End SQLINIT EXEC: 10/17/96 11:16:37 CET 

Ready(00001); T=0.12/0.14 11:16:37 


Figure 25. Current Code Page in SQL/DS for VM 

The CCSIDs or code pages in DB2/2 and SQL/DS are not in the same language 
group. Code Page 437 is in the Latin-1 group, and the CCSID 870 is in the 
Latin-1 a group. So when you want to make the connection between them, you 
will get the following message: 


SQL0332N There is no available conversion for the source code page 
t870t to the target code page t437t. Reason Code tit. SQLstate=57017 


Figure 26. DB2/2 Connect to SQL/DS for VM at ITSO 


SQL30073N tll9Ct Parameter value tt is not supported. SQLSTATE=58017 

Figure 27. DB2/2 Connect to SQL/DS for VSE at ITSO 

They must be put into the same language group. There are two ways to do this: 

• On the PC side, find the correct one in the prepared system code pages and 
use the command CHCP xxx to active it. 

• On the host side, you can restart the database using the correct CCSID. For 
example: 


SQLSTART DBNAME (SQLVMDB0) DCSSID(SQLDBA) PARM (PROTOCOI^AUTO, CHAPl#ME=INTEPNATIONM J ) 

Figure 28. Change the CCSID in SQL/DS 

After this, you can issue the command CONNECT TO database again, which 
should be successful. Following is the message shown. 
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Database Connection Information 

Database product 

= SQL/DS VSE3.5.0 

SQL authorization ID 

= DEMO 

Local database alias 

= IPFVS1A4 


Figure 29. OS/2 Connect to VSE Database at ITSO 


All conversion tables are carried internally and are not subject to change. 

Generally, the character conversions will occur during the following situation: 

• A client has a code page that is different from the code page of the 
database. Most of this conversion is done at the server. For Common Server 
C/S connectivity, for example if the client is OS/2 and the server is AIX or 
vice versa, the conversions are always done by the server. For DRDA C/S 
connectivity, for example if the client is on OS/2 or VM CMS and the server 

is on OS/390 or VSE/ESA, the conversions are always done on the receiving 
system, which can be AR or AS. 

• An application has a code page that is different from the code page of the 
database. We recommend you to specify the code page that the application 
uses during pre-compile and bind. 

• Data is retrieved from a DRDA server. In this case the data is converted at 
the DDCS server. 

Note that the file names and BIT data, such as BLOB data, are not converted. 

2.4.3 Support for Different Collating Sequences 

You can specify the collating sequence which you want to use when you create 
the new database. The syntax is as following: 

CREATE DATABASE database-name [ USING CODESET codeset TERRITORY 
territory ] [ COLLATE USING { SYSTEM | IDENTITY } ] 

IDENTITY Identity collating sequence, in which strings are 

compared byte for byte 

SYSTEM Collating sequence based on the current territory 

You cannot change the collating sequences after the database has been created. 

There are some sample user-defined collating sequences in the host language 
include file. They are available with DB2 for OS/2, just as for DB2 for AIX. 

• sqle819a 

• sqle819b 

• sqle850a 

• sqle850b 

• sqle932a 

• sqle932b 

For detailed definitions, please see 2.5.4.3, “Samples of User-Defined Collating 
Sequences” on page 52. 
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2.5 DB2 Multi-Language Support for AIX 

This section contains information about the National Language Support (NLS) 
provided by the DB2 database products. We have to consider the differences if 
we speak of NLS in terms of the AIX environment, in terms of the DB2 for AIX 
environment or in terms of a DRDA environment. 

Different systems represent data in different ways. When data is moved from one 
system to another, data conversion sometimes must be performed. Products 
supporting DRDA will automatically perform any necessary conversions at the 
receiving system. With numeric data, the information needed to perform the 
conversion is the data type of the data and how the data type is represented by 
the sending system. With character data, additional information is needed to 
convert character strings. String conversion depends on both the coded 
character set of the data and the operation that is to be performed with that 
data. Character conversions are performed in accordance with the IBM 
Character Data Representation Architecture (CDRA). 

We will see that in our environment we have several players that will deal with 
the problem of data representation and data conversion: 

• The AIX operating system 

• The DB2 for AIX database server or the clients 

• The DRDA products based on CDRA 

• The application running on a specific platform 


2.5.1 AIX Locale 

A locale defines conventions for a specified culture, such as time formatting and 
character classification, conversion, and collation. 

2.5.1.1 Locale Overview for System Management 

In an application you do not want to have built-in assumptions or dependencies 
on code set, character classification, character comparison rules, character 
collating order, monetary formatting, numeric punctuation, date and time 
formatting, or of text messages. A locale is defined by these language and 
cultural conventions. All of the information pertaining to culture and language is 
obtained at process run time. All locale information must be accessible to 
programs at run time so that data is processed and displayed correctly for your 
language and culture. 

2.5.1.2 Understanding Locale 

A locale is made up of the language, territory, and code set combination used to 
identify a set of language conventions. The LC environment variables and the 
LANG environment variable can be used in specifying the desired locale. The 
installation default locale refers to the locale selected at installation time by the 
system based on information given by the user. With this Information, the 
system sets the value of the default locale, specified by the LANG environment 
variable. 
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itso2 (root) $ echo $LANG 
De_DE 


Figure 30. Show the Content of LANG Environment Variable 

Every process uses this locale unless the LC or LANG environment variables are 
modified. 

2.5.1.3 Changing Locale 

The LC environment variables and the LANG environment variable can be used 
to specify the desired locale for your application. 


itso2 (root) $ export LANG=En_US 

itso2(root) $ locale 

LANG=En_US 

LC_COLIATE=tEn_USt 

LC_CTYPE=tEn_USt 

LC_MONETARY=tEn_USt 

LC_NUMERIC=tEn_USt 

LC_TIME=tEn_USt 

LC_MESSAGES=tEn_USt 

LC_ALL= 


Figure 31. Set Locate to En_US and Show New Locale 


2.5.1.4 Locale Definition Files 

System-defined locale definition files are provided with AIX. The /usr/lib/nls/loc 
directory contains the locale definition files for system-defined locales. With the 
command locale -a you can check which locale definition files are already 
installed on your system. These files are for example: 


Locale 

Language 

Country 

Code Set 

de_DE 

Gentian 

Germany 

IS08859-1 

De_DE 

Gentian 

Germany 

IBM-850 

de_CH 

Gentian 

Switzerland 

IS08859-1 

De_CH 

Gentian 

Switzerland 

IBM-850 

en_US 

English 

United States 

IS08859-1 

En_US 

English 

United States 

IBM-850 

el_GR 

Greek 

Greece 

IS08859-7 

Fr_CA 

French 

Canada 

IBM-850 

tr_TR 

Turkish 

Turkey 

IS08859-9 


Figure 32. Examples of Locales in AIX 


2.5.1.5 AIX Locale Interpretation 

An AIX locale consists of two parts: part1_part2. 

• Parti specifies the LANGUAGE. De or de stand for German. En or en stand 
for English. De with an upper case D specifies an IBM code set. De with a 
lower case d specifies an ISO code set. 

• Part 2 specifies the TERRITORY. The territory part is always written in upper 
case letters. DE stands for Germany, CH for Switzerland. 
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So the locale De_DE specifies the German language spoken in Germany using 
the IBM code set 850. The locale de_CH specifies the German language spoken 
in Switzerland using ISO code set 8859-1. 

For information about locales refer to "Understanding Locale" and "Changing 
Your Locale" in AIX System Management Guide.Operating System and Devices. 

2.5.2 DB2 for AIX Environment 

In this part we consider DB2 for AIX as a database server with database clients 
not connected via DRDA products. The clients are using CAE or DB2 on 
workstation platforms and are connected via TCP/IP, APPC, NETBIOS or IPX/SPX 
to the database server. 

2.5.2.1 DB2 for AIX and AIX Locale 

All language specific messages, help, panels and application defaults are stored 
independently of the programs and are translated in several languages and 
encoded in several code sets as for example: 

German in Germany IBM-850 (De_DE) 

German in Germany IS08859-1 (de_DE) 

English in US IBM-850 (En_US) 

Japanese in Japan IBM-932 (Ja_JA) 

See DB2 for AIX Installation and Operation Guide for more information. 

You specify the language to be used in your DB2 environment by installing the 
message option for the desired language and then setting the LANG 
environment variable to the desired locale. If you want to use the Japanese 
messages for example, you must have the Ja_JA message option installed, the 
LANG environment variable set to LANG=Ja_JA and the LANG variable made 
known to the environment by the command: export LANG. Setting and exporting 
the LANG variable can be done within the profile of the user for the entire 
session or within a single window for only this process. 

The selected DB2 message catalog options, as well as the messages for the 
installation scripts, are placed in the /usr/lpp/db2_02_01/msg/%L directories on 
the target workstation, where %L is equal to the locale name of the message 
catalog. Selected messages and resources of the DB2 Database Director are 
placed in the /usr/lpp/db2_02_01/msg/%L and the 
/usr/lpp/db2_02_01/dba/res/%L directories. 

2.5.2.2 Setting up Application and Database NLS Environment 

DB2 for AIX NLS support is based on specific code set and territory settings 
established when a database is created or when an application executes. The 
code set value is mapped to an IBM-defined code page and the territory is 
mapped to an IBM-defined country code. 

Table 3 on page 38 shows only some of the countries and code sets supported 
by DB2 for AIX and how these values are mapped to country code and code 
page values which are used by the database manager. 
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Table 3. Supported Locales, Code Sets, Code Pages 


AIX 3.2 

Locale 

AIX 4.1 

Locale 

Code 

Set 

Code 

Page 

Country 

Code 

Country (Language) 

ar_AR 

ar_AA 

IS08859-6 

1089 

785 

Arabic Countries 

Ar_AR 

Ar_AA 

IBM-850 

850 

785 

Arabic Countries 

C 

C 

IBM-850 

850 

001 

Australia (English) 


pt_BR 

IS08859-1 

819 

055 

Brazil (Portuguese) 

de_DE 

de_DE 

IS08859-1 

819 

049 

Germany 

De_DE 

De_DE 

IBM-850 

850 

049 

Germany 

ja_JP 

ja_JP 

IBM-eucJP 

954 

081 

Japan (Japanese) 

Ja_JP 

Ja_JP 

IBM-932 

932 

081 

Japan (Japanese) 

sp_YU 

sr_SP 

IS08859-5 

915 

381 

Serbia/ Montenegro 
(Cyrillic) 

sh_YU 

sh_SP 

IS08859-2 

912 

381 

Serbia/ Montenegro 
(Latin) 

si_SI 

sl_SI 

IS08859-2 

912 

386 

Slovenia 

tr_TR 

tr_TR 

IS08859-9 

920 

090 

Turkey 

en_US 

en_US 

IS08859-1 

819 

001 

U.S.A. (English) 

En_US 

En_US 

IBM-850 

850 

001 

U.S.A. (English) 


Note: Refer to "Country Code and Code Page Support" in DB2 for AIX Installation 
and Operation Guide to see all the supported values. 


The code set (for example IBM-850) is a character string identifier for the code 
page and the territory (for example US) is a character string identifier for the 
country code. Each code page is identified by a numeric identifier (here 850). 
Each country is also represented by a numeric identifier (here 001). A code 
page is a mapping of each character from a character set, such as Latin 
alphabet, to a numeric representation. For example, code set IBM-850 code 
page 850 represents character "A" as hexadecimal 41. The country code setting 
establishes any national conventions that are supported by the database 
manager. 

This information is used by the database manager during database creation and 
during database access. 

During database creation, the database manager uses the territory and code set 
of the application which invokes the CREATE DATABASE command. If, within the 
CREATE DATABASE command the USING CODESET and TERRITORY option is 
specified, the database manager will use the code set and territory specified in 
the command. For internal processing, the database manager maps the territory 
value to a country code and the code set to an IBM-defined code page value. 
Country code and code page are also used to determine the default collating 
sequence that will be used for that database. (See 2.5.4, “Support for Alternate 
Collating Sequences” on page 51 for more information.) 

When creating databases you need to either provide proper territory and code 
set specifications or ensure that the operating environment is set to meet your 
country's application requirements. 
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All this NLS information (code page, country code, collating sequence) is stored 
in the database configuration file and cannot be changed. 

While accessing the database, the application code page is compared to the 
code page of the database to determine if character data conversion is required 
or how the database manager has to transform the date and time presentation 
from the internal storage format to the appropriate country external format of the 
application. 

2.5.2.3 Deriving Code Page Values 

The application code page is derived from the active environment when the 
database connection is made. 

The database code page is derived from the value specified (explicitly or by 
default) at the time the database is created. 

In AlX-based environments, the active environment is determined from the locale 
environment variables, which include information about language, territory and 
code set. 

The database manager determines code page attributes for all character strings 
when an application is bound to a database. The potential code page attributes 
are: 

The Database Code Page 

The database code page stored in the database configuration file. 
This code page value is determined when the database is created 
and cannot be altered. 

The Application Code Page 

The code page under which the application is executed. Note that 
this is not necessarily the same code page under which the 
application was bound. 

Code Page 0 

This represents a string that is derived from an expression that 
contains a FOR BIT DATA or BLOB value. 

Character string code page attributes are as follows: 

• Columns may be in the database code page or code page 0 (if defined as 
character FOR BIT DATA or BLOB). 

• Constants and special registers (for example, USER, CURRENT SERVER) are 
in the database code page. Note that constants are converted to the 
database code page when an SQL statement is bound to the database. 

• Input host variables are in the application code page. 

A set of rules is used to determine the code page attributes for operations that 
combine string objects, such as the results of scalar operations, concatenation, 
or set operations. At execution time, code page attributes are used to determine 
any requirements for code page conversions of strings. 

For more details on these set of conversion rules see the DB2 SQL Reference 
manual. 
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2.5.2.4 Deriving Locales 

Both the database application and the database manager have to derive the 
locale they have to use during runtime. When we want to know how an 
application derives the locale we have to consider that there are two locales: 

• The environment locale allows you to specify the language, currency symbol, 
and so on, that you want to use. 

• The program locale contains the current language, currency symbol, and so 
on, of a program that is executing. 

When a program is started, it gets a default C locale. It does not get a copy of 
the environment locale. Your program has a few choices to specify the program 
locale: 

• Ignore the environment locale. The program could set the locale with the 
setlocal() function and so hardcode the value of the locale in the program. 

• Copy the environment locale to the program locale. 

• Ignore the environment locale and use whatever defaults it gets from the 
operating system. 

Also DB2 has to derive a locale. The active locale used by DB2 is determined 
from the LC_CTYPE portion of the locale. 

• If LC_CTYPE of the program locale has a value other than that of "C", DB2 
will use this value to determine the application code page by mapping it to 
its corresponding code page. 

• If LC_CTYPE of the program locale has the value of "C" (the C locale), DB2 
will set the program locale according to the environment locale using the 
setlocale() function. 

• If LC_CTYPE still has the value of "C", DB2 will use its default locale for that 
platform. See DB2 SDK Building Your Application for your platform for 
information on the default locale for that platform. 

• If LC_CTYPE is no longer "C", its new value will be used to map to a 
corresponding code page. 

It is strongly recommended that applications be pre-compiled, bound, compiled, 
and executed using the same code page. This is because data conversions by 
the server can occur in both the bind and the execution phases. Ensure that the 
same conversion tables are used by binding and executing with the same active 
code page. Any external data obtained by the application will be assumed to be 
in the application code page. This includes data obtained from a file or from user 
input. Make sure that data from sources outside the application uses the same 
code page as the application. 

For more detailed considerations see DB2 Application Programming Guide, DB2 
SQL Reference and DB2 Installation and Operation Guide. 

2.5.2.5 Support for Different Code Pages 

DB2 for AIX supports a lot of different code pages. Your DB2 for AIX database 
server or database client can use these code pages to store data and to run 
applications. 

In Table 4 on page 41 you can see the code pages supported by DB2 Common 
Server and the character set groups to which they belong. 
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Table 4. Code Page Support 

Character Set Group 

Supported Code Pages 

Group 1: Latin-1 

437, 819, 850, 863, 1004, 1051, 1252, 1275 

Group 1 a: Arabic 

864, 1046, 1089, 1256 

Group la: Cyrillic 

855, 866, 915, 1251, 1283 

Group la: Latin-2 

852, 912, 1250, 1282 

Group 1 a: Greek 

813, 869, 1253, 1280 

Group la: Hebrew 

862, 916, 1255 

Group 2: Japanese 

932, 942, 943, 954 

Group 2: Korean 

949, 970 

Group 2: Simpl. Chinese 

1381, 1383 

Group 2: Trad. Chinese 

938, 948, 950, 964 

Group 2: Thai 

874 

Group 1 a: Turkish 

857, 920, 1254, 1281 


2.5.2.6 Conversion Between Different Code Pages 

Ideally the application should always use the same code page as the database. 
However, this is not always practical or possible. The DB2 products provide 
support for character conversion that allows your application and database to 
use different code pages. Characters from one code page must be mapped to 
the other code page in order to maintain the meaning of the data. 

Character conversion can occur in the following situations: 

• When a client or application accessing a database is running in a code page 
that is different from the code page of the database. This conversion will 
occur on the database server machine for both conversions from the 
application code page to the database code page and from the database 
code page to the application code page. 

• When a client or application importing a PC/IXF file runs in a code page that 
is different from the file being imported. This data conversion will occur on 
the database client machine before the client accesses the database server. 
Additional data conversion may take place if this application is running in a 
code page different from the code page of the database server. 

• When DDCS for AIX is used to access data on a DRDA AS. In this case 
character conversion occurs on the receiver of the data, as defined by the 
DRDA rule. Refer to 2.5.3, “DB2 for AIX and DRDA Environment” on 
page 48. 

Character conversion will not occur for: 

• File names. 

• Data that is targeted for or comes from a column assigned the FOR BIT 
DATA attribute, or data used in an SQL operation whose result is FOR BIT or 
BLOB data. 

• Access to a DB2 for OS/2 Version 1.0 or Version 1.2 database server. 

• A DB2 product or platform that does not support, or that does not have 
support installed, for the desired combination of code pages. In this case you 
will get the SQL0332N error message. 
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When your application converts from one code page to another, it is possible 
that one or more characters are not represented in the target code page. In this 
case, DB2 inserts a substitution character into the target string in place of the 
character that has no representation. The replaced character is then considered 
a valid part of the string. If that occurs, the SQLWARN10 indicator in the SQLCA 
is set to "W". This flag is not set after a substitution using the WCHARTYPE 
CONVERT precompiler option. 

2.5.2.7 Supported Character Conversion 

When data conversion occurs, conversion will take place from a source code 
page to a target code page. The source code page is determined from the 
source of the data: 

• Data from the application has a source code page equal to the application 
code page. 

• Data from the database has a source code page equal to the database code 
page. 

The target code page is determined from where the data is to be placed. But 
also rules for intermediate operations are considered. 

• If the data is moved directly from an application into a database without 
intervening operations, the target code page is the database code page. 

• If the data is being imported into a database from a PC/IXF file, there are two 
character conversion steps. 

- From the PC/IXF file code page to the application code page. 

- From the application code page to the database code page. 

Exercise caution in situations where two conversion steps might occur. Make 
sure you follow the supported character conversions listed in Table 5 on 
page 43 to avoid a possible loss of character data. 

• If the data is derived from operations performed on character data, data 
conversion is based on a set of rules. The source may be any of the 
application code page, the database code page, FOR BIT DATA, or for BLOB 
data. Some or all of the data items may have to be converted to an 
intermediate result, before the final target code page can be determined. 

See the DB2 SQL Reference manual for a summary of these rules and for 
specific applications with individual operators and predicates. 

Table 5 on page 43 shows the supported code page conversions. 
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Table 5. Supported Code Page Conversions 

Code Pages 

Countries 

437, 819, 850, 863, 1004, 
1051, 1252, 1275 

Austria, Australia, Belgium, Brazil, Canada, Denmark, 
Finland, France .Germany, Iceland, Italy, Latin America, 
Netherlands, Norway, Portugal, Spain, Sweden, 
Switzerland, UK, USA 

813, 869, 1253, 1280 

Greece 

852, 912, 1250, 1282 

Croatia, Czech Republic, Hungary, Poland, Romania, 
Serbia/ Montenegro (Latin), Slovakia, Slovenia 

855, 915, 1251, 1283 

Bulgaria, FYR Macedonia, Serbia/Montenegro (Cyrillic) 

857, 920, 1254, 1281 

Turkey 

862, 916, 1255 

Israel 

864, 1046, 1089, 1256 

Arabic countries 

866, 915, 1251, 1283 

Russia 

932, 942, 943, 954 

Japan 

938, 948, 950, 964 

Taiwan 

949, 970 

Korea 

1381,1383 

People's Republic of China 

Note: For special information about these code pages and languages refer to DB2 
for AIX Installation and Operation Guide 


These conversions are supported by DB2 tor AIX if the database client or 
database application is also running on a workstation platform. 

Any code page can be converted to any other code page that is listed in the 
same row of the table. 

If all the code pages of both the DB2 for AIX database server and of all (remote) 
database clients or database applications are in the same group, the DB2 for AIX 
products support the code page conversion between all of them if required. 

For example: If the database server and all clients are using code page 850, no 
conversion is required. 

If the database server uses code page 850 and a database client uses code page 
437, the code page conversion is done by the database manager. 

If the database server uses code page 850 and a database client uses code page 
852, then there is no code page conversion available at this time and you will get 
SQL error SQL0332N when connecting. 

2.5.2.8 DB2 for AIX Example 

In the following example you can see how AIX locales and DB2 for AIX are 
working together and how to influence the dependencies. 

In this example we use the locale tr_TR for Turkish, because Turkish is not a 
member of the character set group Latin-1. Therefore, DB2 for AIX does not do 
an automatic code page conversion from code page 850 to code page 920 when 
accessing the database but has to be set to the correct environment. 
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To see the possibilities and problems within this constellation just go step by 
step. 

Installed AIX Locales 


itsol(root) $ locale -a 
en_US.IS08859-1 
En_US.IBM-850 
de_DE.IS08859-1 
De_DE.IBM-850 
Ja_JP.IBM-932 
En_JP.IBM-850 
pt_PT.IS08859-1 
Pt_PT.IBM-850 
tr_TR.IS08859-9 


Figure 33. Show which Locales are Installed 

Active AIX Locale 


itsol (root) $ echo $LANG 
EnJJS 


Figure 34. Show the Active Locale 

Create Database enus 


I itsol(db2instl) $ db2 tcreate database enust 

Figure 35. Create Database with Active Locale 

Create Database trtr 


itsol(db2instl) $ 

db2 tcreate database trtr using codeset IS08859-9 territory TRt 


Figure 36. Create Database with Locale tr_TR 
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List Database Directory 


itsol (db2instl) $ db2 tlist database directoryt 

System Database Directory 


Number of entries in the directory = 2 

Database 1 entry: 


Database alias 

= ENUS 

Database name 

= ENUS 

Local database directory 

= /home/db2instl 

Database release level 

= 6.00 

Comment 

= 

Database 2 entry: 


Database alias 

= TRTR 

Database name 

= TRTR 

Local database directory 

= /home/db2instl 

Database release level 

= 6.00 

Comment 

= 

Directory entry type 

= Indirect 

Figure 37. List Database System Directory 

Database Configuration Files 


itsol(db2instl) $ db2 tget database configuration for enust 

Database Configuration for Database enus 

Database configuration release level 

= 0x0600 

Database release level 

= 0x0600 

Database territory 

= En_US 

Database code page 

= 850 

Database code set 

= IBM-850 

Database country code 

= 1 


Figure 38. Database Configuration File for enus Database 
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itsol(db2instl) $ db2 tget database configuration for trtrt 


Database Configuration for Database trtr 


Database configuration release level = 0x0600 

Database release level = 0x0600 


Database territory 
Database code page 
Database code set 
Database country code 


= tr_TR 
= 920 

= IS08859-9 
= 90 


Figure 39. Database Configuration File for trtr Database 

Show Active Locale Variables 


itsol(db2instl) $ locale 

LANG=En_US 

LC_COLLATE=tEn_US t 

LC_CTYPE=tEn_USt 

LC_MONETARY=tEn_USt 

LC_NUMERIC=tEn_US t 

LC_TIME=tEn_USt 

LC_MESSAGES=tEn_USt 

LC_ALL= 


Figure 40. Show the Currently Used Locale 

Connect to the Databases 


itsol (db2instl) $ db2 tconnect to enust 

Database Connection Information 

Database product = DB2/6000 2.1.0 

SQL authorization ID = DB2INST1 

Local database alias = ENUS 


Figure 41. Connection Information 


itsol(db2instl) $ db2 tconnect to trtrt 

SQL0332N There is no available conversion 
for the source code page t850t to 
the target code page t920t. Reason Code tit. 
SQLSTATE=57017 


Figure 42. Connection information 

Change the Active Locale 

Now change the active locale to the equivalent for database trtr. 
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itsol (db2instl) $ export LANG=tr_TR 

itsol(db2instl) $ locale 

LANG=tr_TR 

LC_COLIATE=ttr_TRt 

LC_CTYPE=ttr_TRt 

LC_MONETARY=ttr_TRt 

LC_NUMERIC=ttr_TRt 

LC_TIME=ttr_TRt 

LC_MESSAGES=ttr_TRt 

LC_ALL= 


Figure 43. Change and Show Active Locale 

Connect to the Databases Again 


itsol (db2instl) $ db2 tconnect to enust 

Database Connection Information 

Database product = DB2/6000 2.1.0 

SQL authorization ID = DB2INST1 

Local database alias = ENUS 


Figure 44. Connection Information 


itsol(db2instl) $ db2 tconnect to trtrt 

SQL0332N There is no available conversion 
for the source code page t850t to 
the target code page t920t. Reason Code tit. 
SQLSTATE=57017 


Figure 45. Connection Information 

Terminate DB2 CLP 

Even though we changed the locale to the appropriate one we still get SQL error 
SQL0332N when connecting to database trtr. The reason is that we are using 
DB2 CLP as the application to connect to the databases. But DB2 CLP is still 
running on code page IBM-850. To make the new locale available to DB2 CLP 
we have to terminate CLP and start again. 


itsol(db2instl) $ db2 tterminatet 


Figure 46. Terminate CLP 
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Connect to the Databases Again 


itsol(db2instl) $ db2 t connect to enust 

SQL0332N There is no available conversion 
for the source code page t920t to 
the target code page t850t. Reason Code tit. 
SQLSTATE=57 017 


Figure 47. Connection Information 


itsol(db2instl) $ db2 t connect to trtrt 

Database Connection Information 

Database product = DB2/6000 2.1.0 

SQL authorization ID = DB2INST1 

Local database alias = TRTR 


Figure 48. Connection Information 

Now DB2 CLP is running on code page 920. So connecting to database trtr is 
successful and connecting to database enus fails. 

2.5.3 DB2 for AIX and DRDA Environment 

Now consider the case when DB2 for AIX is a DRDA application requester using 
DDCS for AIX to connect to a DRDA application server. The DRDA AR and the 
DRDA AS might be running on different code pages or CCSIDs. In this case data 
conversion has to take place. Within a DRDA environment the receiver of data is 
always responsible for the correct data conversion. 

DB2 for AIX also can act as a DRDA AS. In that case DB2 for AIX might deliver 
data to a DRDA AR on MVS. 

2.5.3.1 Conversion of CCSIDs with DRDA 

Different systems or products represent data in different ways. When data is 
moved from one system to another, data must sometimes be converted. 

Products supporting DRDA automatically perform any necessary conversions at 
the receiving system. 

Both numeric data and character data might require conversion. All numeric 
conversions are built into the database products. However, because of their 
large number not all character conversions are supported by the database 
products. 

Character sets, code pages, and encoding schemes are identified by coded 
character set identifiers (CCSIDs). Each system or product has an associated 
CCSID value. 


48 Multi-Language Solutions 





The communication network delivers the DRDA messages sent by the AR. The 
DRDA messages describe the SQL operations to be performed, and they are 
transmitted using the DRDA application support protocols. Each data object 
included in the DRDA messages contains a descriptor indicating the internal 
representation of the data. DRDA specifies that the system sending a data object 
is allowed to transmit data using its own internal data representation. If the data 
object is in a format that is not acceptable to the receiver, the receiver must 
perform any required conversions. 

For example, DRDA allows machines using ASCII character representation to 
send messages to machines using EBCDIC character representations. When this 
occurs, the system receiving the messages is responsible for performing the 
correct data conversion. When the DRDA messages are interpreted, the 
application server performs the requested SQL operations at the local database 
and sends the results back to the application requester. As a receiver of data, 
the DRDA AR machine may also have to perform the correct data conversions 
for the results sent by the DRDA AS. 

2.5.3.2 Supported Conversions with DRDA 

Table 6 shows the conversions that are supported within a DRDA environment. It 
shows the available conversions between the code pages on the workstation and 
the CCSIDs on the hosts. 


Table 6. Workstation Code Page to Host CCSID Conversion 

Character Set Group 

EBCDIC CCSID 

ASCII Code Page 

Group 1: Latin-1 

037, 273, 277, 278, 280, 

284, 285, 297, 500, 871 

437, 819, 850, 1051, 1252, 
1275 

Group 1 a: Arabic 

420 

864, 1046, 1089, 1256 

Group la: Cyrillic 

1025 

855, 866, 915, 1251, 1283 

Group la: Latin-2 

870 

852, 912, 1250, 1282 

Group 1 a: Greek 

423, 875 

813, 869, 1253, 1280 

Group la: Hebrew 

424 

862, 916, 1255 

Group 2: Japanese 

930, 931, 939, 5026, 5035 

932, 942, 943, 954 

Group 2: Korean 

933 

949, 970 

Group 2: Simpl. Chinese 

935 

1381, 1383 

Group 2: Trad. Chinese 

937 

938, 948, 950, 964 

Group 2: Thai 

838 

874 

Group 1 a: Turkish 

1026 

857, 920, 1254, 1281 

Note: For further information about CCSID support for DB2 for AIX refer to DB2 for 

AIX Installation and Operation Guide or DDCS Installation and Configuration Guide. 


Using DRDA products you have conversion support between the EBCDIC CCSID 
and the corresponding ASCII code page in the same line. But there is no 
support between EBCDIC CCSID and ASCII code pages in different lines. 

For example: If the DRDA AR on the workstation uses ASCII code page 850 and 
the DRDA AS on MVS uses EBCDIC code page 500 then the required conversion 
will be done by the DRDA products. The conversion is always done on the 
receiver of the data. 
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If the DRDA AR on the workstation uses ASCII code page 850 and the DRDA AS 
on MVS uses EBCDIC code page 870 then the required conversion cannot be 
done by the DRDA products at this time. You may get the SQL error SQL30073N 
with parameter-identifier "119C" specifying that the target server does not 
support the CCSID requested by the application requester. 

You should ensure that the CCSIDs used by the application server and the AR 
are compatible (that is, each system can convert from the other's CCSID into its 
own CCSID). If the CCSIDs are not compatible, then the two systems will not 
connect successfully. 

In general, data can be converted from code page to CCSID and back again with 
no change. The following are the only exceptions to this rule: 

• In double-byte character set (DBCS) code pages, some data containing 
user-defined characters may be lost. 

• For single-byte code pages defined within mixed-byte code pages, some 
characters may be mapped to substitution characters and they are lost when 
the data is converted back to the original code page. 

In order to connect to a database with an incompatible code page, the following 
steps need to be performed. Although this information is correct at this time (Nov 
'96), you should always check your DB2 manuals first, to see if there is more 
up-to-date information applicable to the same topic. 

1 Make sure you are using DB2 server V2.1.2 or above. 

2 Ask your IBM representative to obtain two conversion files for the pair of 
code pages that you want to support. For example, if you want to support 
connection between code page 819 and code page 915, you need 
08190915.cnv and 09150819.cnv tables. 

3 Place these binary files in the <DB2Path>/sqllib/conv directory on UNIX 
platforms such as AIX, and in the <DB2Path>/sqllib/conv directory on 
various Intel platforms such as OS/2 or Windows. 

4 If you are only using Common Server DB2 C/S products, you need to place 
these files only on the server. 

5 For connections between Common Server DB2 C/S and mainframe DB2 
implementations, such as SQL/DS or DB2/MVS, you need to first ensure 
that the corresponding DB2 host platform supports the same conversion. 

You only need the Host-to-Workstation conversion table on the workstation 
side. 

6 Once the connection between incompatible code page environments is 
established, you will get a warning message: 


SQL0863W A successful connection was made, but only single byte 
characters should be used. SQLSTATE=0153. 


Figure 49. Connection Information 

This is normal, and intended to warn you that you should only use the 
characters that exist in both code pages. 

When data is transferred between a DDCS workstation and a DRDA server, it is 
usually converted from a workstation code page to a host CCSID, and vice versa. 
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If the two systems use different code pages or CCSIDs, code points are mapped 
from one code page or CCSID to the other. This conversation is based on the 
underlying CDRA and is always performed at the receiver of the data. 

For example, if DDCS for AIX is used to access data from a DB2 for MVS DRDA 
server, the following happens: 

• DDCS sends SQL statements and input data from AIX to MVS 

• DB2 for MVS DRDA AS converts the data to an EBCDIC CCSID and 
processes it 

• DB2 for MVS sends the resulting data back to DDCS for AIX 

• DDCS for AIX converts the resulting data to an ASCII or ISO code page and 
returns it to the user/application 

2.5.4 Support for Alternate Collating Sequences 

The database manager compares character data using a collating sequence. 

This is an ordering for a set of characters that determines whether a particular 
character sorts higher, lower, or the same order. Note: Character string data 
defined with the FOR BIT DATA attribute, or BLOB data, is sorted using the 
binary sort sequence. 

The country code and the code page are used to determine the default collating 
sequence that will be used for the database. This default collating sequence 
may be explicitly overwritten. For more information refer to the CREATE 
DATABASE command or sqlecrea API below, about how to overwrite the 
collating sequence. 

All this NLS information (code page, country code, collating sequence) is stored 
in the database configuration file and cannot be changed since it is used for 
additional NLS processing. This includes, for example to generate and process 
indexes on character data type columns, to process character data string 
comparisons or to process SORT BY and GROUP BY clauses in SQL statements. 

2.5.4.1 Defining Collating Sequence with API sqlecrea 

You can use the API sqlecrea to create a database specifying at creation time 
the code set, territory and collating sequence information. Therefore, you can 
use the API parameters: 

pCountrylnfo 

Input parameter. May be NULL. 

A pointer to the sqledbcountryinfo structure, containing the locale 
and the code set for the database. 

For more information about this structure refer to the DB2 API 
Reference manual. 

pDBDescriptor 

Input parameter. May be NULL. 

A pointer to the database descriptor block used when creating the 
database. The database description block may be used to supply 
values that are permanently stored in the configuration file of the 
database, such as collating sequence. 

For more information about the database description block structure 
SQLEDBDESC refer to the DB2 API Reference manual. 
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The CREATE DATABASE operation assigns the code set and the territory defined 
by pCountrylnfo in the creating application as the database code set and 
territory, and stores these, as well as the collating sequence from 
pDBDescriptor. If no code set or territory is specified, the default action is to use 
the locale of the application which is making the sqlecrea call to determine the 
code set or territory. A flag is set in the database configuration file if the 
collating sequence consists of unique weights, or if it is the identity sequence. 

2.5.4.2 Defining Collating Sequence with CREATE DATABASE 
Command 

You can specify the CREATE DATABASE command to create a new database 
defining the code set, territory and collating sequence information at creation 
time. 

To specify the collating sequence information you have two possibilities: 

CREATE DATABASE databasename USING CODESET codeset TERRITORY 
territory COLLATE USING SYSTEM 

CREATE DATABASE databasename USING CODESET codeset TERRITORY 
territory COLLATE USING IDENTITY 

COLLATE USING identifies the type of collating sequence to be used for the 
database. Once the database has been created the collating sequence cannot be 
changed. 

The types you can choose are: 

IDENTITY Identity collating sequence, in which strings are compared byte for 
byte 

SYSTEM Collating sequence based on the current territory 

2.5.4.3 Samples of User-Defined Collating Sequences 

The differences between EBCDIC and ASCII cause differences in sort orders in 
the various database products, and also affect ORDER BY and GROUP BY 
clauses. One way to minimize these differences is to create a user-defined 
collating sequence that mimics the EBCDIC sort order. You can specify a 
collating sequence only when you create a new database. For more information 
see the DB2 API Reference and the DB2 Command Reference manuals. 

The following sample user-defined collating sequences are available with DB2 
for AIX in the host language include files: 

sqle819a If the code page of the database is 819 (ISO Latin 1), this sequence will 
cause sorting to be performed according to the host CCSID 500 
(EBCDIC International). 

sqle819b If the code page of the database is 819 (ISO Latin 1), this sequence will 
cause sorting to be performed according to the host CCSID 037 
(EBCDIC English). 

sqle850a If the code page of the database is 850 (ISO Latin 1), this sequence will 
cause sorting to be performed according to the host CCSID 500 
(EBCDIC International). 
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sqle850b If the code page of the database is 850 (ISO Latinl), this sequence will 
cause sorting to be performed according to the host CCSID 037 
(EBCDIC English). 

sqle932a If the code page of the database is 932 (ASCII Japanese), this 

sequence will cause sorting to be performed according to the host 
CCSID 5035 (EBCDIC Japanese). 

sqle932b If the code page of the database is 932 (ASCII Japanese), this 

sequence will cause sorting to be performed according to the host 
CCSID 5026 (EBCDIC Japanese). 

These sample collating sequences are provided (as include files) to facilitate 
database creation using EBCDIC collating sequences instead of the default 
workstation collating sequence. 

They can also be used as models for the construction of other user-defined 
collating sequences. 

For more information about creating your own collating sequence see the DB2 
Application Programming, the DB2 API Reference and the DB2 SQL Reference 
manuals. 
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Chapter 3. VM/ESA Implementation 


3.1 General Consideration 

The software installation for both ITSO and ZPIZ and the steps to establish DRDA 
connectivity are described in detail in the following chapter. The tasks to 
implement SQL/DS for VM as both a DRDA application server (AS) and a DRDA 
application requester (AR) are described. These tasks do not change regardless 
of the related client/server partner. 

The operating system was VM/ESA VI.2.2 with the required software for DRDA 
implementation, that is SQL/DS 3.5, VTAM V3.4 and AVS/VM. 

The steps undertaken at the ITSO and ZPIZ sites at this point were: 

1 Install SQL/DS V3.5 for VM on the ITSO BOEVMIS2 system, and generate 
databases SQLVMDBO, SQLVMDB1, SQLVMDB6. 

Install SQL/DS V3.5 for VM on the ZPIZ VM122 system, and generate 
database SQLDBA. 

2 Install SQL/DS V3.5 for VSE on the ITSO VSEANL13 system, and generate 
database SQLVSDB1. 

Install SQL/DS V3.5 for VSE on the ZPIZ VSE3 system, and generate 
database SQLDS. 

3 Use a previously customized CICS partition for ITSO. 

4 Install a new CICS partition on the VSE3 system for ZPIZ. 

5 Check connectivity between both SQL/DS database environments using 
AVS/VM, VTAM and CICS. 

6 Check connectivity from ITSO SQLUSER AR to the VSEANL13 system. 

7 Check connectivity from ZPIZ SQLUSER AR to the VSE3 system. 

8 Create the ISQL package on VSEANL13 for use from ITSO SQL/DS AR. 

9 Create the ISQL package on VSE3 for use from ZPIZ SQL/DS AR. 

10 Check connectivity from OS/2 DB2/2 to SQL/DS for VM and SQL/DS for VSE. 

ZPIZ used the default database names and sizes as provided with the SQL/DS 
installation. The SQL/DS database for VM was defined as a global resource to 
VM. The major difference between ZPIZ and ITSO was, that at the ZPIZ site 
Latin-2 CCSID (870) was implemented as opposed to the default CCSID of 500 on 
the ITSO system. 


© Copyright IBM Corp. 1996 
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Figure 50. Configuration - ITSO 



Figure 51. Configuration - ZPIZ 
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ZPIZ, IBM 9672-R22 



Figure 52. Software - ZPIZ 


3.2 ITSO and ZPIZ System Setup 

How the VM systems at ITSO and ZPIZ were set up for the SQL/DS database 
machines will be shown on the next pages. 

3.2.1 Database Machine SQLUSER (DRDA AR) 

The SQLUSER entry used on the ITSO or ZPIZ machine provides the AR function 
of DRDA to other systems (that is, like or unlike database systems). 

3.2.2 UCOMDIR NAMES File 

This is the resource directory, residing in the requester. It lists the resources as 
they are known to the requester and the information about how to get to them. 
There are two levels of communication directories. The SCOMDIR NAMES file 
contains system-wide information, which can be supplemented or overridden by 
the UCOMDIR NAMES file for an individual virtual machine. 

Requesting the use of a remote resource means telling the system which 
resource is needed, which gateways to use to access it, what security 
information needs to be provided, and what type of session is required. This 
information is provided by a COMDIR file. 

A COMDIR file contains one entry for each resource (such as a database) that 
will be accessed. Both local and remote resources may have COMDIR entries. 
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: NICK. SQLVSDB1 


:TPN.TPN1 

:LUNAME.IPFA2GL4 IPFA21CD 
: MODENAME.IBMRDBM 
:SECURITY.PGM 
:USERID.CICSUS1 
:PASSWORD.CICSUS1 
:DBNAME.SQLVSDB1 

:NICK.SQLDBA 

:IPN.SQLDBA 

:LUNAME.IPFA2GL4 Z00AVSL1 
:MODENAME.IBMRDB 
: SECURITY. PGM 
: USERID. Z00VMU1 
:PASSWORD.RGNCSQ 
:DBNAME.SQLDBA 

: NICK. SQLDS 

:TPN.TPN1 

:LUNAME.IPFA2GL4 Z00CICS4 
: MODENAME.IBMRDB 
:SECURITY.PGM 
: USERID. Z00VSEU1 
:PASSWORD.RGNCSQ 
: DBNAME. SQLDS 


Figure 53. UCOMDIR NAMES File for the AR SQLUSER at ITSO 


: NICK. SQLDS 

:IPN.TPN2 

:LUNAME.Z00AVSL2 Z00CICS4 
:MODENAME.IBMRDB 
: SECURITY. PGM 
:USERID.Z00VSEU1 
:PASSWORD.RGNCSQ 
: DBNAME. SQLDS 

: NICK. SQLVSDB1 

:TPN.TPN1 

:LUNAME.Z00AVSL1 IPFA21CD 
: MODENAME.IBMRDB 
: SECURITY. PGM 
:USERID.CICSUS1 
:PASSWORD.CICSUS1 
:DBNAME.SQLVSDB1 

: NICK.SQLVMDBO 

:TPN.SQLVMDBO 
:LUNAME.Z00AVSL1 IPFA2GL4 
:MODENAME.IBMRDBM 
: SECURITY. PGM 
:USERID.DRDAX1 
:PASSWORD.SQL4VSE 
:DBNAME.SQLVMDBO 


Figure 54. UCOMDIR NAMES File for the AR SQLUSER at ZPiZ 
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Note: After the changes are made to a COMDIR, a SET COMDIR RELOAD 
command must be issued, or the SQLUSER must log off and log on, to 
activate those changes. 

For example: 


SET COMDIR RELOAD USER 
SET COMDIR RELOAD SYSTEM 


Figure 55. SET COMDIR RELOAD 


3.2.3 Database Machine SQLVMDBO and SQLMACH (DRDA AS) 


USER SQLVMDBO xxxxx 32M 64M G 
ACCOUNT SQLVMDBO 
OPTION MAXCONN 40 
IUCV *IDENT SQLVMDBO GLOBAL 
IUCV ALLOW 


Figure 56. USER DIRECT Entry for the AS SQLVMDBO at ITSO 


USER SQLMACH xxxxx 8M 12M G 
ACCOUNT SQLMACH 
OPTION MAXCONN 40 
IUCV *IDENT SQLDBA GLOBAL 
IUCV ALLOW 


Figure 57. USER DIRECT Entry for the AS SQLMACH at ZPiZ 

The SQLMACH entry used on the ZPIZ machine, for example, provides the AS 
function of DRDA to other systems. 

The entry OPTION MAXCONN 40 specifies the total number of possible 
connections to this virtual machine. 

The IUCV *IDENT SQLDBA GLOBAL statement authorizes the database machine, 
as a resource owner, to connect to the VM system service *IDENT. The name of 
the database specified in the DBNAME parameter during execution of the 
generation EXEC SQLDBINS is used as the resource identifier. The parameter 
SQLDBA allows the database machine to identify the AS. The GLOBAL 
parameter identifies this database machine as an AS resource which can be 
accessed by all ARs in a network. 
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3.3 ITSO and ZPIZ Database Setup 


3.3.1 SQL/DS for VM Startup 

The parameters for the SQLSTART exec which have an effect on the behavior of 
the database within DRDA are presented as follows: 


PARAMETER 

ITSO 

ZPIZ 

DBMODE=G | L | N 

(see *IDENT IN VM Directory) 

(see *IDENT 
in VM 

Directory) 

PROTOCOL=SQLDS | AUTO 

AUTO 

AUTO 

CHARNAME=name 

INTERNATIONAL 

SLOVENIA 

CCSID = name 

500 

870 


Table 7. ITSO and ZPIZ SQL/DS DRDA Initialization Parameters. The SQL/DS 
initialization parameters which have an impact on the behavior of the database within 
DRDA. 


The various parameters are briefly described below: 

DBMODE The DBMODE parameter identifies the database name as a 
LOCAL resource (DBMODE = L), a GLOBAL resource 
(DBMODE = G), or NON-APPC/VM (DBMODE = N). Consider the 
following when specifying the DBMODE parameter: 

• When DBMODE=G is specified, and the IUCV *IDENT 
directory entry does not allow that resource name to be 
identified as a GLOBAL resource, the AS ends the startup. 

• If DBMODE = L is specified, the AS is identified as a LOCAL 
resource even if the IUCV *IDENT entry specifies that resource 
as GLOBAL. 

• If you specify L or G to run SQLSTART, and the database 
machine contains no GLOBAL or LOCAL IUCV *IDENT 
directory entries, the database manager ends processing. 

PROTOCOL The PROTOCOL parameter specifies the types of protocols that 
the application server can handle. This parameter has two 
options on the SQLSTART EXEC: 

PROTOCOL=AUTO 

This option allows access to the SQL/DS AS from SQL/DS AR and 
non-SQL/DS AR. 

PROTOCOL=SQLDS 

This option allows access to the SQL/DS AS from SQL/DS AR 
only. This is the default. 

In SQL/DS - SQL/DS communications, if PROTOCOL=AUTO is 
specified on both the AR and the AS, the initialization flows 
(handshaking) will be done in DRDA. However, after this 
handshaking is completed the communications will automatically 
revert to SQLDS-only (private) flows. 

If the database acts both as DRDA AS and DRDA AR then 
PROTOCOL=AUTO must be specified on the SQLSTART. If the 
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database is only going to communicate with other SQL/DS 
database systems, then PROTOCOL=SQLDS may be used. In this 
case private VM protocols will be used. 

CHARNAME The CHARNAME parameter specifies the CCSIDs to be used as 
the AS defaults. The default CCSIDs determine the character sets 
and code pages to be used to interpret statements and return 
results. The valid CHARNAME values you can specify are for 
example ENGLISH (CCSID=37), INTERNATIONAL (CCSID=500), 
870 (CCSID=870), and all the values that are in the CHARNAME 
column of the SYSTEM.SYSCCSIDS catalog table. 

The SQLDBGEN parameter “DBNAME” will be the resource ID registered by 
*IDENT and therefore known to AVS. COMDIR entries pointing to that resource 
will use that DBNAME. If the DBNAME is longer than eight bytes, then the 
resource ID will be specified as something other than the DBNAME. In this case, 
mapping is performed by the file RESID NAMES when the database is started. 

3.3.2 SQLINIT Usage 

The SQLINIT EXEC initializes a user machine for SQL/DS access. With this 
EXEC, we specify the default database we wish to access and any special 
options to be used when accessing this database. If we want to access another 
database that is not the default established through SQLINIT, then we can issue 
the SQL command CONNECT to access the other database. 

The SQLINIT parameters: 

1. PROTOCOL 

Indicates the database access protocol to be used for communicating with 
the application server. Valid values here are SQLDS, AUTO, and DRDA. 

SQLDS specifies that only private flows will be used. If this option is 
specified, the AR cannot connect to a non-SQL/DS AS because SQL/DS-only 
protocol will be used. This protocol performs better and uses less storage 
than SAA Remote Unit of Work (DRDA) protocols. SQLDS is the default value. 

AUTOmatic specifies that the AR is to use private flows when communicating 
with an SQL/DS AS and SAA Remote Unit of Work (DRDA) flows when 
communicating with a non-SQL/DS AS. 

DRDA specifies that the AR has to use the DRDA flow with both SQL/DS and 
non-SQL/DS AS. 

Below is an example of PROTOCOL parameter usage. 


sqlinit db(sqldba) protocol (sqlds) chamame (slovenia) 
ARI0717I Start SQLINIT EXEC: 06/25/96 14:54:35 UTC. 
ARI0320I The default server name is SQLDBA. 

ARI0796I End SQLINIT EXEC: 06/25/96 14:54:36 UTC. 


2. QRYBLKSIZE 

Is the block size used to return rows of data when SAA Remote Unit of Work 
blocking is used to perform FETCHes. The number is specified in 
denominations of IK and ranges anywhere between IK and 32K. This 
parameter has an impact only when DRDA flows are being used, if the 
private flow is used it will be ignored. The default value is 8K. 
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3. CHARNAME 


This parameter specifies the name of the default character set for the user's 
virtual machine (application requester). The valid values are contained in the 
new catalog table, SYSTEM.SYSCCSIDS. The specified CHARNAME value 
and its corresponding row in this table are used to set the default CCSID 
values for single-byte, mixed, and graphic data. 

The default for CHARNAME is INTERNATIONAL for ITSO. This corresponds 
to CCSID 500, which is a single-byte CCSID. ZPIZ's CHARNAME is 870. This 
corresponds to CCSID 870. 

3.3.3 Defining Slovenian Character Set 

At the beginning of this section we would like to point out that a similar 
implementation can be done for other countries of Eastern Europe (Croatia, 
Poland, Czech...). When the user starts the database with CHARNAME = 870 
and initializes the database with CHARNAME = SLOVENIA lower case letters 
are translated to upper case letters, if SET CASE UPPER is requested. 

a (XC81C) becomes A (XCC1C) 
b (XC82C) becomes B (X<?C2<?) 
c (XC83C) becomes C (XCC3C) 
d (XC84C) becomes D (XCC4C) 

But some SLOVENIAN letters have not been converted: 

a (XC47C) remains a (X<?47<?) 

* (X<?9C<?) remains as (X<?9C<?) 

I (XCB6<?) remains 1 (X<?B6<?) 

On the ZPIZ side a new record was inserted into the SYSTEM.SYSCHARSET 
system table, which translates these three Slovenian letters into capitals. The 
new character set was set up by referring to the chapter "Choosing a National 
Language and Defining Character" in SQL/DS System Administration, GH09-8096. 
The attributes for these letters were changed from 0 to 3 and lower case letters 
were overtyped by capital letters. The result: 

a (X<?47£) becomes A (XC67C) 

* (X<?9C<?) becomes ' (XCBCC) 

I (XCB6<?) becomes *4 (XCB8C) 

Now, when the user starts the database with CHARNAME = 870 and initializes 
the database with CHARNAME = SLOVENIA, the translation of all lower case 
letters to upper case is done correctly. 
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CONNECT SQLDBA IDENTIFIED BY SQLDBAPW; 

SET ERRORMDDE CONTINUE; 

COMMENT <:*****—> BEGIN SLOVENIA INPUT COMMANDS <—******<: 

INSERT INTO SYSTEM. SYSCHARSETS (NAME, CHARCLASS, CHARTRANS) 

VALUES( 

9SLOVENIAC, 

<fl00000030305666660000000006366666600000303066B6600000000006332670333333 

3330030000333333333003000003333333300300060000030300030000AAAAAAAAA00000 

00AAAAAAAAA00000000AAAAAAAA0000004444444444000000< : , 

<? aaaaaAgNC .< (+ 1 &eeeeiiiiii! $*) ; -/AAAAAAQN], %_>? 0 ETLEllII : #@<}4=t0ABCDE 
FGHI<oxb- • • JKLMNOPQR-CE' YE- • STUVWXYZ; ice- $„ [£¥fif]§fMg4- ' ' ""t (ABCDEFGHI666 
66} JKLMNOPQR-uuMy\STUVWXYZ •666660123456789 •UUUW); 

COMMIT WORK; 

CONNECT SQLDBA IDENTIFIED BY SQLDBAPW; 

SET ERRORMODE CONTINUE; 

COMMENT £*****—> BEGIN ENGLISH INPUT COMMANDS <—******£ 

INSERT INTO SYSTEM. SYSCHARSETS (NAME, CHARCLASS, CHARTRANS) 

VALUES( 

9ENGLISH9, 

<fl00000000005666660000000006366666600000000066B6600000000006332670333333 

3330000000333333333000000003333333300000060000000000000000AAAAAAAAA00000 

00AAAAAAAAA00000000AAAAAAAA0000004444444444000000< : , 

9 aaaaaagrW .< (+1 &eeeeiiiiii! $*); -/AAAAAAQN], %_>? 0 EEEEllII: #@<}4=t0ABCDE 
FGHI«»o 3- • • JKLMNOPQR-d&Yffi- • STUVWXYZ; ,;ce* X„ [£¥fif]§f^» '' ""t {ABCDEFGHIooo 
66 } JKLMINDPQR*uuMy\STUVWXYZ •666660123456789 •UUUU9); 


Figure 58. SLOVENIA Character Set at ZPIZ 

If the SQL/DS user starts the database with CHARNAME = 870, initializes the 
database with CHARNAME = SLOVENIA and tries to sort inserted records, the 
collating sequence is as follows: 

A (XC67C) 

* (X<?B8<?) 

' (XCBO?) 

A (X<?C1<?) 

B (X < fC2 < t) 

C (XdC3C) 

D (XCC46) 

A new collating sequence for SLOVENIA characters was implemented as well. 
The sample coding for FIELD PROCEDURE SLOSORT is presented in A.3, “Field 
Procedure Sample” on page 199. The result of the new sort sequence is: 

A (X<?CK) 

B (XdC2d) 

C (XCC3C) 

A (XC67C) 

D (XdC4d) 

S (XCE26) 

' (X<?BC<?) 

T (X<?E3<?) 

Z (XCE9C) 

^ (X<?B8<?) 
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i cms.SQLVMDBO. 

VM/ESAREL. 2.1 04/15/95 13:52 

The example of implementation Field Procedure follows 


ARI0717I Start SQLSTART EXEC: 07/13/96 12:39:40 CET 
ARI0663I FILEDEFS in effect are: 

ARISQLLD DISK ARISQLLD LOADLIB Q1 

BDISK DISK 200 

LCGDSK1 DISK 201 

DDSK1 DISK 202 


ARISSCR DISK ARISSCR MACRO * 

ARISSTR DISK ARISSTR MACRO * 

ARISCCS DISK ARISCCS MACRO * 

NETID DISK SNA NETID * 

ARISPOOL DISK SQLVMDBO ARISPOOL * 

ARI0020I Virtual machine addressing mode = 31 


ARI0015I PROTOCOL parameter value is AUTO. 
ARI0015I ACCOUNT parameter value is N. 
ARI0015I DUMPTYPE parameter value is F. 
ARI0015I LOGMODE parameter value is Y. 
ARI0015I STARTUP parameter value is W. 
ARI0015I SYSMODE parameter value is M. 
ARI0015I EXTEND parameter value is N. 
ARI0015I CHARNAME parameter value is 870. 
ARI0015I DBNAME parameter value is SQLVMDBO 
ARI0015I RESID parameter value is SQLVMDBO. 
ARI0015I PARMID parameter value is SLO870. 


ARI02821 LUW UNDO is completed. 

ARI0281I LUW REDO is conpleted. 

ARI0159D The specified CHARNAME is different than the 
current system CHARNAME. This will force the 
system CCSID values to be changed. Do you wish 
to change the system CHARNAME? 

Enter 0 (No) to continue using the current CHARNAME 
of INTERNATIONAL, or 
1 (Yes) to change the system CHARNAME 
to 870, or 

111(Quit) to cancel your request and end 
SQLSTART processing. 

1 

ARI0143I The application server has been initialized 
with the following values: 

CHARNAME = 870, DBCS = NO, CHARSUB = SBCS, 


CCSIDSBCS = 870, CCSIDMIXED = 0, CCSIDGRAPHIC = 0 

Figure 59 (Part 1 of 2). SQL/DS Startup at ZPtZ 
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ARI0134I Application server SQLVMDBO has been 
identified as a global resource. 
ARI0060I SQL/DS initialization complete. 
ARI0045I Ready for operator corrmunications. 


Figure 59 (Part 2 of 2). SQL/DS Startup at ZPIZ 


create table slo870seq (name char(l) fieldproc slosort) in sample 

ARI0500I SQL processing was successful. 

ARI0505I SQLCODE = 0 SQLSTATE = 00000 ROWCOUNT = 0 
insert into slo870seq values (<b<0 
ARI0500I SQL processing was successful. 

ARI0505I SQLCODE = 0 SQLSTATE = 00000 ROWCOUNT = 1 
insert into slo870seq values (<A<0 
ARI0500I SQL processing was successful. 

ARI0505I SQLCODE = 0 SQLSTATE = 00000 ROWCOUNT = 1 
insert into slo870seq values (<d<0 
ARI0500I SQL processing was successful. 

ARI0505I SQLCODE = 0 SQLSTATE = 00000 ROWCOUNT = 1 
insert into slo870seq values (<C<0 
ARI0500I SQL processing was successful. 

ARI0505I SQLCODE = 0 SQLSTATE = 00000 ROWCOUNT = 1 
insert into slo870seq values (<D<0 
ARI0500I SQL processing was successful. 

ARI0505I SQLCODE = 0 SQLSTATE = 00000 ROWCOUNT = 1 
insert into slo870seq values (<t<0 
ARI0500I SQL processing was successful. 

ARI0505I SQLCODE = 0 SQLSTATE = 00000 ROWCOUNT = 1 
insert into slo870seq values(CSC) 

ARI0500I SQL processing was successful. 

ARI0505I SQLCODE = 0 SQLSTATE = 00000 ROWCOUNT = 1 
insert into slo870seq values(CzC) 

ARI0500I SQL processing was successful. 

ARI0505I SQLCODE = 0 SQLSTATE = 00000 ROWCOUNT = 1 
insert into slo870seq values(xC67C) 

ARI0500I SQL processing was successful. 

ARI0505I SQLCODE = 0 SQLSTATE = 00000 ROWCOUNT = 1 
insert into slo870seq values(xCBCC) 

ARI0500I SQL processing was successful. 

ARI0505I SQLCODE = 0 SQLSTATE = 00000 ROWCOUNT = 1 
insert into slo870seq values(xCB8C) 

ARI0500I SQL processing was successful. 

ARI0505I SQLCODE = 0 SQLSTATE = 00000 ROWCOUNT = 1 


Figure 60. Inserted Records at ZPIZ 
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select name from slo870seq 


NAME 

B 

A 

D 

C 

D 

T 

S 

Z 

A 

t 

*4 

* End of Result ** 11 Rows Displayed ** Cost Estimate is 1 * 

Figure 61. Selected Records at ZPIZ 



Figure 62. Selected Records Order by Field Procedure SLOSORT at ZPIZ 
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select hex (name) from slo870seq 


HEX (NAME) 


C2 

Cl 

C4 

C3 

C4 

E3 

E2 

E9 

67 

BC 

B8 

* End of Result ** 11 Rows Displayed ** Cost Estimate is 1 * 


Figure 63. Selected Records Hex Presentation at ZPIZ 


SET CASE 

ARI7955I The system ended your query result to process your command. 
ARI7725E The SET CASE command processing stopped. 

The command is not complete. You must specify 
UPPER or STRING 
set case upper 

ARI7727I The old CASE value was UPPER. 

The new CASE value is UPPER. 


Figure 64. Checking SET CASE at ZPIZ 


3.3.4 SQLINIT QUERY Output 

SQLINIT QUERY is used to display the parameters set by the last invocation of 
SQLINIT. Here is an example: 
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SQLINIT QUERY 

ARI0717I Start SQLINIT EXEC: 07/11/96 17:21:58 CET. 

S ELE CTED TABLE IS: SQL/DS 
DBNAME=SQLVMDBO 
DBCS=NO 
SYNCHRONOUS=NO 
DATEFORMAT=ISO 
TIMEFORMAT=ISO 
TRACERA=00 
T DAT F.T ,EN =0 
LTIMELEN=0 
RELEA SE=3.5.0 
WORKUNIT=YES 
QRYBLKSIZE=8 
PROTOCOL=DRDA 
CHARNAME=INTERNATIONAL 
CCSIDSBCS=500 
CCSIDMIXED=0 
CCSIDGRAPHIC=0 
TRACEDRRM=0000 
TRACECONV=0 
SSSNAME=ARIQSTAT 

ARI0796I End SQLINIT EXEC: 07/11/96 17:21:58 CET 


Figure 65. SQLINIT QUERY at ITSO 


SQLINIT QUERY 

ARI0717I Start SQLINIT EXEC: 06/25/96 14:56:41 UTC. 

S ELE CTED TABLE IS: SQL/DS 
DBNAME=SQLDBA 
DBCS=NO 
SYNCHRONOUS=NO 
DATEFORMAT=ISO 
TIMEFORMAT=ISO 
TRACERA=00 
T DAT F.T ,EN =0 
T 1 TT MF 1 T ,EN =0 
RELEA SE=3.5.0 
WORKUNIT=YES 
QRYBLKSIZE=8 
PROTOCOL=DRDA 
CHARNAME=SLOVENIA 
CCSIDSBCS=870 
CCSIDMIXED=0 
CCSIDGRAPHIC=0 
TRACEDRRM=0000 
TRACECONV=0 
SSSNAME= 

ARI0796I End SQLINIT EXEC: 06/25/96 14:56:41 UTC. 


Figure 66. SQLINIT QUERY at ZPiZ 
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3.3.5 SQLGLOB Usage 

The SQLGLOB EXEC allows you to set database-wide defaults for all SQLINIT 
parameters. It creates a file on the production disk containing these defaults. The 
syntax of this EXEC is similar to the SQLINIT EXEC. 

The SQLGLOB EXEC was enhanced to accept new parameters which are the 
same as the SQLINIT new parameters described above, and they also have the 
same meaning. 


3.4 AVS/VM Setup 

3.4.1 Setting Up AGWPROF Profile 

This profile, if it exists, is executed automatically by the AVS code when the 
command AGW START is executed. Examples of AGWPROFs that are used are 
given below: 


4AGW ACTIVATE GATEWAY IPFA2GL4 GLOBAL 

4AGW CNOS IPFA2GL4 IPFA21CD IBMRDBM 20 10 10$ 


Figure 67. AGWPROF GCS at ITSO 


<A.GW ACTIVATE GATEWAY Z00AVSL1 GLOBALC 
<A.GW ACTIVATE GATEWAY Z00AVSL2 GLOBALC 


Figure 68. AGWPROF GCS at ZPiZ 

If the profile does not exist, the AVS commands contained in AGWPROF have to 
be manually entered. Those commands define the type of gateways to be 
activated. 

In some situations, an AGW CNOS (Change Number Of Serious) command might 
be issued. It is recommended that you code the CNOS command into the GCS 
profile. It serves as useful documentation, and it provides the VTAM/NCP people 
useful information as well. For more details about AVS/VM please use VM/ESA 
Connectivity Planning, Administration, and Operation, SC24-5448. 

3.4.2 Defining AVS to VTAM 

Since AVS runs as a VTAM application, it must be defined to VTAM. It is then 
considered as a VTAM resource, and VTAM knows that it exists. 

When AVS is defined to VTAM it provides gateways from a VM viewpoint, not to 
be confused with gateways in an SNA network. 

Although there is only one AVS machine, several gateways can be defined to 
VTAM. The ITSO definitions include one gateway. 
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IPF2AVS VBTT TTD TYPE=APPL 
IPFA2GL4 APPL APPC=YES, 

AUTHEXIT=YES, 

AUTOSES=20, 

DSESLIM=200, 

DMIMaIN]j=100, 

DMINWNR=100, 

EAS=3999, 

MAXPVT=2 0 OK, 

SECACPT=ALREADYV, 

VERIFY=NQNE, 

VPACING=2, 

M3DETAB=DRDAM3D, 

DLOGM3D=IBMRDBM, 

SYNCLVL=CONFIRM, 

OPERCNOS=ALLCiW, 

PARSESS=YES 


Figure 69. VM/VTAM APPL for AVS/VM at ITSO 

The definitions, shown for ZPIZ, include two gateways. 


AVSVM VBTT TTD TYPE=APPL 
Z00AVSL1 APPL APPC=YES, 

AUTHEXIT=YES,AUTOSES=20, 

DSESLIM=20, DIMmWNL=10, DMI]SMNR=10, 

EAS=3 999,MAXPVT=20OK, 

SECACPT=ALREADYV,VERIFY=NONE, 

VPACING=2,M3DETAB=AM3DETAB,DLOGM3DE=IBMRDB, 
SYNCLVL=CONFIRM, OPERCNOS=ALLCW, PARSESS=YES 
Z00AVSL2 APPL APPC=YES, 

AUTHEXIT=YES,AUTOSES=20, 

DSESLIM=20, IMQ®M>10, DMINWNR=10, 

EAS=3 999,MAXPVT=20OK, 

SECACPT=ALREADYV,VERIFY=NONE, 

VPACING=2,M3DETAB=AM3DETAB,DLOGM3DE=IBMRDB, 
SYNCLVL=CQNFIRM, OPERCNOS=ALLOW, PARSESS=YES 


Figure 70. AVS/VM AGW Q ALL at ZPIZ 


3.5 SQL/DS for VM DRDA Flow 

Once the standard program to program communication is in place and the 
databases are running, the DRDA flows are ready to begin. DRDA flows are the 
“voices” of the server and requester programs talking to each other. 

To summarize what has been covered so far, the following must be true before 
DRDA flows can begin: 

• The systems to be connected are running. 

• The systems are connected by standard SNA communication links that 
support LU 6.2. 
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• End users are properly defined to VM and have active communication 
directories that point to database resources in the network and indicate the 
gateways to be used in accessing them. 

• The gateways are active (sessions may either already exist or be 
automatically created as needed). 

• The database systems are running and (for SQL/DS) have identified 
themselves as resources using the *IDENT service. 

Conversations can now begin. There are four types of DRDA flows. Each 
conversation will include the first flow and should include the fourth flow. Each 
conversation may also include one or more of the second and/or the third flows. 

1 Initialization Flow 

Here, the two sides exchange information about themselves. If they agree 
to speak to each other, then an SNA conversation is started on an available 
session. 

2 Bind Flow 

In this flow, the AR sends SQL statements to the AS to be stored as part of 
a program for later execution. An example would be a DB2/2 user creating 
an SQL/DS package. 

3 SQL Statement Execution Flow 

In this flow, the AR requests execution of SQL commands against the 
location where the data resides. These commands may have arrived at the 
target site earlier as part of a BIND flow, or they may arrive on the SQL 
Statement Execution Flow (as in an ISQL SELECT). 

4 Termination Flow 

This flow ends the conversation in an orderly fashion. 
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3.5.1 SQL Connect Flow from VM AR to Local VSE AS at ITSO 

Figure 71 shows the components involved and the required customization. In 
short, the VM CMS user SQLUSER logged on, and issued an SQLINIT to connect 
to the VSE AS database SQLVSDB1. All required data is retrieved from its 
UCOMDIR and sent to the target network (VTAM) that passed the request to the 
target LU IPFA21 CD (VSE CICS) which the VSE AS is running. 



Please check the status of AVSVM, CICS, VSE/VTAM: 

1. agw q all 

IPFA2GL4 ACTIV 

2. cemt i conn(gOeO) 

Conn(gOeO) Net(IPFA2GL4) Ins Acq 

3. d net,id = IPFA2GL4,e 

NAME = DEIBMIPF. IPFA2GL4 , TYPE = CDRSC 
CDRSC MAJOR NODE = VTMCDRS 

CPNAME1 = DEIBMIPF. IPFV2 

SESSIONS: 

IPFA21CD ACTIV 
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d net,id = IPFA21 CD,e 


NAME = DEIBMIPF. IPFA21CD , TYPE = APPLC 
APPL MAJOR NODE = APPLDRD 

SESSIONS: 

IPFA2GL4 ACTIV 

3.5.2 SQL Connect Flow from VM AR to Local VSE AS at ZPIZ 



SQLUSER 


UCOMDIR NAMES 


:nick.SQLDS / 

:tpn.TPN2 9 

:luname.Z00AVSL2 Z00CICS4 
:userid.ZOOVSEU1 


dbname:SOLDS 


VSE/VTAM 

D NET,ID=ZOOAVSL2 

IST075I NAME=Z00AVSL2, TYPE=CDRSC 
IST2311 CDRSC MAJOR NADE=ISTCDRDY 
IST479I CDRM NAME=SIZPIZ6 


AVSVM 

\ AGWPROF GCS 


AGW ACTIVATE GATEWAY 
Z00AVSL2 GLOBAL 


VM/VTAM 

NETID = SIZPIZOO 
SSCPNAME = SIZPIZ6 

xxxAPPLS VTAMLST 

rZ00AVSL2APPLAPPC=YES 
DSESLIM=20,... 


xxxCDRSC VTAMLST 


NETWORK NETID = SIZPIZOO 
Z00CICS4 CDRSC CDRM - A05M 


Figure 72. SQL/DS VM AR Connect Flow to Local SQL/DS VSE AS at ZPIZ 


The sequence of events for ITSO and ZPIZ is as follows: 

1 An SQL/DS CONNECT command (CONNECT to SQLVSDB1 at ITSO or 
CONNECT TO SQLDS at ZPIZ) is issued, specifying a remote target. 

2 The SQL/DS CONNECT function locates the COMDIR entry (UCOMDIR 
NAMES) for that target and uses it to resolve the LU name (IPFA21CD at 
ITSO or Z00CICS4 at ZPIZ) and TPN name (TPN1 at ITSO or TPN2 at ZPIZ) 
that AVS will need to locate the resource. 

If a COMDIR entry exists but is invalid, then the connection request will fail. 
This example will continue presuming that a valid COMDIR entry does exist. 

3 The AVS machine converts the VM/APPC commands to SNA APPC and 
uses the LU provided in the COMDIR to establish a conversation to the 
remote gateway. 

4 VM/VTAM passes the request to a CDRM located at another node (IPFV2A 
at ITSO or A05M at ZPIZ) which then connects to a CICS applid (IPFA21CD 
at ITSO or Z00CICS4 at ZPIZ). 

5 If the connection with CICS is not acquired, the connection will fail. 
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6 If the connection with CICS is acquired then the TPN transaction (TPN1 at 
ITSO or TPN2 at ZPIZ) specified on the request, will be started. 

7 The transaction TPN (TPN1 at ITSO or TPN2 at ZPIZ) will then check the 
SNT table for the proper user ID (CICSUS1 at ITSO or Z00VSEU1 at ZPIZ) 
and password, that was sent on the request. 

8 If the user ID/password match the TPN program, ARIAXED will check the 
DBNAME directory. If the matching entry for TPN is found in the DBNAME 
directory, the CONNECT request is passed to the proper database manager 
(SQLVSDB1 at ITSO or SQLDS at ZPIZ). 

3.5.3 SQL Connect Flow from ZPIZ VM AR to Remote VSE AS at ITSO 



The sequence of events is similar to the previous case, where a VM AR connects 
to a local VSE AS. 

Please check the status of AVSVM, CICS, VSE/VTAM, VM/VTAM: 

1. agw q all 

Z00AVSL1 ACTIV 

2. cemt i conn(DRC9) ... ITSO side check for ZPIZ VM/ESA SQL/DS AR 

Conn (DRC9) Net (Z00AVSL1) Ins Acq 


74 Multi-Language Solutions 














































3. d net,id=Z00AVSL1 ,e 

CDRSC 
VTMCDRS 
SIZPIZ6 

SIZPIZOO.SIZPIZ6 
ACTIV 

d net,id = IPFA21 CD,e 


NAME = SIZPIZOO.Z00AVSL1 , TYPE = 

CDRSC MAJOR NODE 

CDRM NAME 

CPNAME 

SESSIONS: 

IPFA21CD 


NAME = DEIBMIPF. IPFA21CD , TYPE = APPLC 
APPL MAJOR NODE = VTMCDRS 

SESSIONS: 

Z00AVSL1 ACTIV 


4. d net,id=Z00AVSL1 ,e 

NAME = Z00AVSL1 TYPE = APPL 

APPL MAJOR NODE = A06APPLS 

SESSIONS: 

IPFA21CD ACTIV 


3.5.4 SQL Connect Flow from ZPIZ VM AR to Remote VM AS at ITSO 


AVSVM 



Figure 74. ZPIZ VM AR Connect Flow to Remote SQL/DS VM AS at ITSO 


Chapter 3. VM/ESA Implementation 75 
















The sequence of events is as follows: 

1 An SQL/DS CONNECT command is issued specifying a remote target. 

2 The SQL/DS CONNECT function locates the COMDIR entry for that target 
and uses it to resolve the LU name and TPN name that AVS will need to 
locate the resource. 

If a COMDIR entry exists but is invalid, then the connection request will fail. 
This example will continue presuming that a valid COMDIR entry does exist. 

3 The AVS machine converts the VM/APPC commands to SNA APPC and 
uses the LU provided in the COMDIR to establish a conversation to the 
remote gateway. 

4 The remote ITSO AVS checks the VM resource table on its own system to 
see if the requested resource resides there. If it does, then the connection 
can be established. 

5 Presuming the resource (an SQL/DS database) is found, the VM directory 
for its system checks for the existence of the user ID and (if 
SECURITY=PGM) the password that was sent on the request. 

6 Presuming a match is found, that user ID is passed to the database 
manager. This will become the CONNECT user ID for the requesting user on 
the target SQL/DS system. 

In the interests of keeping the examples simple, the security considerations 

involved have been ignored. 

3.5.5 Various Console Captures 

Various ITSO and ZPIZ console captures are shown on the next pages. 

Display of VM/VTAM CDRSCS at ZPIZ. 

• Z00CICS4 is the CICS applid at ZPIZ. 

• FAEZSVM is the cross domain resource at IGN. 

• IPFA1VSC is the VM/VTAM gateway at ITSO. 

• IPFA2GL4 is the AVS/VM gateway at ITSO. 

• IPFA21CD is the CICS resource at ITSO. 
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send vtam vtam d cdrscs 

VTAM 

IST097I DISPLAY ACCEPTED 

VTAM 

IST350I DISPLAY TYPE = CDRSCS 

VTAM 

IST089I ISTPDILU TYPE = CDRSC SEGMENT , ACTIV 

VTAM 

IST172I NO CDRSCS EXIST 

VTAM 

IST089I ISTCDRDY TYPE = CDRSC SEGMENT , ACTIV 

VTAM 

IST483I Z00T010A ACT/S-Y, CDRM = SIZPIZ , NETID = SIZPIZOO 

VTAM 

IST089I A06CDRSC TYPE = CDRSC SEGMENT , ACTIV 

VTAM 

IST483I Z00CICS4 ACT/S , CDRM = A05M , NETID = SIZPIZOO 

VTAM 

IST483I FAEZSVM ACTIV , CDRM = FAE , NETID = ATIBMFA 

VTAM 

IST483I IPFA1VSC ACTIV , CDRM = IPF , NETID = DEIBMIPF 

VTAM 

IST483I IPFA2GL4 ACT/S , CDRM = IPFV2 , NETID = DEIBMIPF 

VTAM 

IST483I IPFA21CD ACT/S , CDRM = IPFV2A , NETID = DEIBMIPF 

VTAM 

IST314I END 


Figure 75. VM/VTAM D CDRSCS at ZPIZ 


Below is a more detailed display of the ITSO gateway IPFA2GL4 at ZPIZ 
indicating 32 active sessions between both AVS/VM gateways. 


send vtam vtam d id=ipfa2g!4,e 

VTAM 

IST097I DISPLAY ACCEPTED 

VTAM 

IST075I NAME = IPFA2GL4, TYPE = CDRSC 

VTAM 

IST486I STATUS= ACT/S, DESIRED STATE= ACTIV 

VTAM 

IST599I REAL NAME = DEIBMIPF. IPFA2GL4 

VTAM 

IST977I MDLTAB=* * *NA* * * ASLTAB=* * *NA* * * 

VTAM 

IST861I MODETAB=***NA*** USSTAB=***NA*** LOGTAB=***NA*** 

VTAM 

IST934I DLOGMQD=* * *NA* * * USS LANGTAB=* * *NA* * * 

VTAM 

IST597I CAPABILITY-PLU ENABLED , SLU ENABLED , SESSION LIMIT NONE 

VTAM 

IST231I CDRSC MAJOR NODE = A06CDRSC 

VTAM 

IST479I CDRM NAME = IPFV2, VERIFY OWNER = NO 

VTAM 

IST082I DEVTYPE = CDRSC 

VTAM 

IST654I I/O TRACE = OFF, BUFFER TRACE = OFF 

VTAM 

IST171I ACTIVE SESSIONS = 0000000032, SESSION REQUESTS = 0000000000 

VTAM 

IST206I SESSIONS: 

VTAM 

IST634I NAME STATUS SEND RECV VR TP NETID 

VTAM 

IST635I Z00AVSL1 ACTIV-S 0001 0000 0 0 SIZPIZOO 

VTAM 

IST635I Z00AVSL1 ACTIV-S 0001 0000 0 0 SIZPIZOO 

VTAM 

IST635I Z00AVSL1 ACTIV-S 0001 0000 0 0 SIZPIZOO 

VTAM 

IST635I Z00AVSL1 ACTIV-S 0001 0000 0 0 SIZPIZOO 

VTAM 

IST635I Z00AVSL1 ACTIV-P 0000 0001 0 0 SIZPIZOO 

VTAM 

IST635I Z00AVSL1 ACTIV-P 0000 0001 0 0 SIZPIZOO 

VTAM 

IST314I END 


Figure 76. VM/VTAM D ID=IPFA2GL4,E at ZPIZ 
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The local side of the AVS/VM gateway, where the sessions are established, is 
shown below. 

From a ZPIZ AVS/VM viewpoint there are 46 sessions active, including active 
local and remote (VM and VSE) sessions. 


send vtam vtam d id=z00avsll,e 

VTAM 

IST097I DISPLAY ACCEPTED 

VTAM 

IST075I NAME = Z00AVSL1, TYPE = APPL 

VTAM 

IST486I STATUS= ACT/S, DESIRED STATE= ACTIV 

VTAM 

IST977I MDLTAB=* * *NA* * * ASLTAB=* * *NA* * * 

VTAM 

IST861I M3DETAB=AMQDETAB USSTAB=***NA*** LOGTAB=* * *NA* * * 

VTAM 

IST934I DLOGMDD=IHMRDB USS LANGTAB=* * *NA* * * 

VTAM 

IST597I CAPABILITY-PLU ENABLED , SLU ENABLED , SESSION LIMIT NONE 

VTAM 

IST231I APPL MAJOR NODE = A06APPLS 

VTAM 

IST654I I/O TRACE = OFF, BUFFER TRACE = OFF 

VTAM 

IST869I USERID = AVSVM 

VTAM 

IST1050I MAXIMUM COMPRESSION LEVEL - INPUT = 0, OUTPUT = 0 

VTAM 

IST171I ACTIVE SESSIONS = 0000000046, SESSION REQUESTS = 0000000000 

VTAM 

IST206I SESSIONS: 

VTAM 

IST634I NAME STATUS SEND RECV VR TP NETID 

VTAM 

IST635I Z00T010A ACTIV-S 0001 0000 0 0 SIZPIZ00 

VTAM 

IST635I ZOOTOIOA ACTIV-S 0001 0000 0 0 SIZPIZ00 

VTAM 

IST635I ZOOTOIOA ACTIV-S 0001 0000 0 0 SIZPIZ00 

VTAM 

IST635I IPFA2GL4 ACTIV-S 0001 0000 0 0 DEIBMIPF 

VTAM 

IST635I IPFA2GL4 ACTIV-S 0001 0000 0 0 DEIBMIPF 

VTAM 

IST635I IPFA21CD ACTIV-S 0001 0000 0 0 DEIBMIPF 

VTAM 

IST635I IPFA2GL4 ACTIV-S 0001 0000 0 0 DEIBMIPF 

VTAM 

IST635I IPFA2GL4 ACTIV-S 0001 0000 0 0 DEIBMIPF 

VTAM 

IST314I END 


Figure 77 . VM/VTAM D ID=Z00A VSL 1,E at ZPIZ 


78 Multi-Language Solutions 






AVS/VM has its own type of commands. This screen shows AVS/VM at ZPIZ, the 
defined gateways, active sessions, user IDs and conversations established. 


send avsvm agw q all 


AVSVM 

AVSVM 

AVSVM 

AVSVM 

AVSVM 

AVSVM 

AVSVM 

AVSVM 

AVSVM 

AVSVM 

AVSVM 

AVSVM 

AVSVM 

AVSVM 

AVSVM 

AVSVM 

AVSVM 

AVSVM 

AVSVM 

AVSVM 

AVSVM 

AVSVM 

AVSVM 

AVSVM 

AVSVM 

AVSVM 

AVSVM 

AVSVM 

AVSVM 

AVSVM 

AVSVM 

AVSVM 

AVSVM 

AVSVM 

AVSVM 

AVSVM 

AVSVM 

AVSVM 

AVSVM 

AVSVM 

AVSVM 

AVSVM 

AVSVM 


GATEWAYS: 

GATEWAY = Z00AVSL1 GLOBAL ACTIVE CONV COUNT = 000000001 

GATEWAY = Z00AVSL2 GLOBAL ACTIVE CONV COUNT = 000000000 

CNOS: 

GATEWAY = Z00AVSL1 REMOTELU = IPFA2GL4 MODE = IBMRDB 

ACTIVE CONV COUNT = 000000000 

CURRENT VALUES: LIMIT = 00020 WINNER = 00010 LOSER = 00010 

CNOS COMMAND VALUES: LIMIT = 00000 WINNER = 00000 LOSER = 00000 

GATEWAY = Z00AVSL1 REMOTELU = IPFA2GL4 MODE = IBMRDBM 

ACTIVE CONV COUNT = 000000000 

CURRENT VALUES: LIMIT = 00010 WINNER = 00005 LOSER = 00005 

CNOS COMMAND VALUES: LIMIT = 00010 WINNER = 00005 LOSER = 00005 

GATEWAY = Z00AVSL1 REMOTELU = IPFA21CD MODE = IBMRDB 

ACTIVE CONV COUNT = 000000000 

CURRENT VALUES: LIMIT = 00020 WINNER = 00010 LOSER = 00010 

CNOS COMMAND VALUES: LIMIT = 00000 WINNER = 00000 LOSER = 00000 

GATEWAY = Z00AVSL1 REMOTELU = IPFBOEDJ MODE = IBMRDB 

ACTIVE CONV COUNT = 000000000 

CURRENT VALUES: LIMIT = 00020 WINNER = 00010 LOSER = 00010 

CNOS COMMAND VALUES: LIMIT = 00000 WINNER = 00000 LOSER = 00000 

GATEWAY = Z00AVSL1 REMOTELU = IPFCL0E0 MODE = IBMRDB 

QU IE SCED CONV COUNT = 000000000 

CURRENT VALUES: LIMIT = 00000 WINNER = 00000 LOSER = 00000 

CNOS COMMAND VALUES: LIMIT = 00000 WINNER = 00000 LOSER = 00000 

GATEWAY = Z00AVSL1 REMOTELU = IPFSL0E0 MODE = IBMRDB 

QUIESCED CONV COUNT = 000000000 

CURRENT VALUES: LIMIT = 00000 WINNER = 00000 LOSER = 00000 

CNOS COMMAND VALUES: LIMIT = 00000 WINNER = 00000 LOSER = 00000 

GATEWAY = Z00AVSL1 REMOTELU = Z00T010A MODE = IBMRDB 

ACTIVE CONV COUNT = 000000001 

CURRENT VALUES: LIMIT = 00020 WINNER = 00010 LOSER = 00010 

CNOS COMMAND VALUES: LIMIT = 00000 WINNER = 00000 LOSER = 00000 

GATEWAY = Z00AVSL2 REMOTELU = Z00CICS4 MODE = IBMRDB 

ACTIVE CONV COUNT = 000000000 

CURRENT VALUES: LIMIT = 00020 WINNER = 00010 LOSER = 00010 

CNOS COMMAND VALUES: LIMIT = 00000 WINNER = 00000 LOSER = 00000 

USERIDS: 

REMOTELU=Z00T010A REMOTE USERID=Z00VMU1 LOCAL USERID=SQLUSER 
CONVERSATIONS: 

GATEWAY = Z00AVSL1, REMOTELU = Z00T010A, RESOURCE = SQLDBA 
USERID = , ACCESS USERID = SQLUSER , CONVERSATION = 01000084 
VTAM STATE = 05, VM STATE = 04 
AGWCMD149I End 


Figure 78. VM/VTAM APPL for AVS/VM at ZPIZ 


Chapter 3. VM/ESA Implementation 79 






CNOS - number of sessions established from gateway Z00AVSL1 on the ZPIZ 
side: 


• remote LU IPFA2GL4 (AVSVM at ITSO) 

• remote LU IPFA21 CD (CICS APPLID at ITSO) 

• remote LU IPFBOEDJ (AIX at ITSO) 

• remote LU IPFCLOEO (PS/2 via 3745 CU at ITSO) 

• remote LU IPFSLOEO (PS/2 via 3174 CU at ITSO) 

• remote LU Z00T010A (PS/2 at ZPIZ) 

CNOS - number of sessions established from gateway Z00AVSL2 on the ZPIZ 
side: 

• remote LU Z00CICS4 (CICS APPLID at ZPIZ) 

Conversation between gateway Z00AVSL1 and PS/2 requester (Z00T010A) is 
active. 

Two agents are connected to the VM SQL/DS named SQLVMDBO. The first one 
is SQLUSER at BOEVMIS2, a local user. The second one is user DRDAX1 from 
DDCS/2 which is in conversation status. Please note that this display shows 
SQL/DS and DRDA protocol used. 


Status of Connected SQL/DS Users 1996-07-12 07:15:44 

Checkpoint agent is not active. 

User Agent: 1 User-ID: SQLUSER SQL-ID: SQLUSER 

is R/O APPL 7BD9 

Agent is processing and is in communication wait. 

State started: 1996-07-12 07:15:34 

Conversation started: 1996-07-12 07:15:25 

LUWID: SNANETID.*IDENT.AD272F3D3FC4.0001 
EXTNAM: SQLUSER. 1 

Requester: SQLDS/VM V3.5.0 at BOEVMIS2 
Package: SQLDBA.ARIISQL Section: 4 

User ID: DRDAX1 SQL ID: DRDAX1 
User is inactive. 

State started: 1996-07-12 07:11:28 
Conversation started: 1996-07-12 07:11:27 

LUWID: DEIBMIPF.IPFCLOEO.AD27324127D1.0001 
EXTNAM: DB2BP.EXE 007A0001 

Requester: DDCS/2 V2.1.1 at 

1 SQL/DS users are active. 

0 SQL/DS users are waiting. 

1 SQL/DS users are inactive. 

9 SQL/DS agents are available. 

486 SQL/DS user connections are available. 

ARI0065I SQL/DS operator command processing is complete. 


Figure 79. SQL Show Connect Example at ITSO 
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3.5.6 Multi-Language Character Set Conversions 



After SQL/DS was successfully installed at both the ITSO and ZPIZ sites, the 
ZPIZ customer with CCSID (870) tries to access ITSO's SQL/DS initiated with 
CCSID (500). The connection failed. The translation table between these two code 
pages does not exist. IBM provided the appropriate translation by inserting 
records into the SYSTEM.SYSSTRINGS table. SQL connections on VM/ESA and 
VSE/ESA SQL/DS of the following CCSID (CP/CS) are now enabled: 

- ZPIZ CCSID 870 (L2 SLOVENIA) <-> ITSO 037 (LI USA) 

- ZPIZ CCSID 870 (L2 SLOVENIA) <-> ITSO 500 (LI INTERNATIONAL) 

Before you run CMS EXEC make sure that SQL/DS is initiated with the private 
protocol SQLDS, so that conversion is not enabled. The appropriate insert to 
SYSTEM.SYSSTRINGS was done at the ITSO and ZPIZ sites. 
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»»> Insert 4846 fig82 e 6 here ««< 

SET ERRORMDDE CONTINUE; 

CONNECT SQLDBA IDENTIFIED BY SQLDBAPW TO SQLDBA; 

DELETE FRCM SYSTEM. SYSSTRINGS WHERE INCCSID=037 AND OUTCCSID=870; 
INSERT INTO SYSTEM. SYSSTRINGS VALUES (037, 870, 9SS9, NULL,NULL, 9 9, 

9 9; 9, 

9 aaaaaagne.< (+] &eeeiiiiAfi> | $*) ;A-/AAMN 0 QEE, %_>?iEIE0fl<o>:#@99=tfeabcde 
fghi**ae—(E jklmncpqrE* jY^-fstuvwxyz,, [oe*£¥ '9!' ""t {ABCDEFGHIooo 

66 }JKLMNOPQR* uuuuy\STUVWXYZ•606660123456789•UUUtfc); 

DELETE FRCM SYSTEM.SYSSTRINGS WHERE INCCSID=870 AND OUTCCSID=037; 
INSERT INTO SYSTEM. SYSSTRINGS VALUES (870, 037, 9SS9, NULL,NULL, 9 6 , 
99; *9, 

9 aaaaaagn- .<(+!&e9eeiieifi>'$*); [-/AA1A AQA| ,%_>?AENE] ll 0 E:#@ 99 HFabcde 
fghiII0-«» jklmnopqr • '(EstuvwxyzaSie* •; i 9 ,,£¥§ftflfkJ 9 k 4 ' ""t {ABCDEFGHIooo 

66} JfvUyNOPQR*uuMy\STUVWXYZ •6oo660123456789 •UUUU9); 

DELETE FRCM SYSTEM.SYSSTRINGS WHERE INCCSID=500 AND OUTCCSID=870; 
INSERT INTO SYSTEM. SYSSTRINGS VALUES (500, 870, 9SS9, NULL,NULL,9 6 , 

9 9; • 9, 

9 aaaaaagn9 .< (+1 &eeeeiiiii5! $*); -/AAAAMQN 0 , %_>? EEEE llli0: #@99=t«abcde 
fghi»fe--*— jklmnopqr®aiEY* • |stuvwxyz£,toe*„[£¥fifH§!444*']'""t{ABCDEFGHIooo 
66} JKLMtOPQR-uuuuyASTUVWXYZ •666660123456789 -60069); 

DELETE FRCM SYSTEM.SYSSTRINGS WHERE INCCSID=870 AND OUTCCSID=500; 
INSERT INTO SYSTEM. SYSSTRINGS VALUES (870,500, 9SS9, NULL,NULL,9 9, 
99; . 9 , 

9 aaaaaagn9 .< (+1 &eeeeiiiiii! $*); -/AAAAAAgN',%_>?]E 0 EEllEI:#@ 99 =tiabcde 
fghi0«»-te* jklmnopqr--CEYffi-Xstuvwxyz • joe-£,4„ [£¥fi§fl®4 ^-' ""t {ABCDEFGHIooo 
66}JKIMHOPQR-uuuuy\STUVWXYZ•666660123456789-UUUU9); 

CCMMIT WORK; 

»»> End of Insert ««< 


Figure 81. SYSTEM.SYSSTRINGS Table 

When you start a connection from ZPIZ to ITSO: 

CONNECT TO SQLVMDB0 

All the Slovenian characters were correctly displayed at ZPIZ. Using DML 
insert...hex, the appropriate Slovenian hex letters were inserted into the ITSO 
database (refer to Figure 105 on page 97). Software and hardware were also 
set up correctly (microcode and 3270 sessions). 


^'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k^ 

/* 


1) SQL/DS USERID SQLDBA WITH DBA AUTHORITY 

*/ 

^ •k'kk'k'k'k'k'k'kkk-k-kkkk'k-kkkk'kkk'kk'k'k'k'k'k'k'k'kk-k'kkkkkk'k'k'k'kkk'k'k'k'k'kk'k'k'k'kk'k'k'k'k'k'k'k'k'k j 

TRACE OFF 



9FILEDEF 

SYSIN 

DISK SLO MACRO A19 


9FILEDEF 

SYSPRINT 

DISK SLO DBSULST A19 


9EXEC 

SQLDBSU9 



EXIT 

rc 




Figure 82. Using SQL/DS DBSU Utility 
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Chapter 4. VSE/ESA Implementation 


4.1 ITSO and ZPIZ VSE/ESA System Setup 

In this section we discuss the most important setup tasks required to enable 
SQL/DS for VSE/ESA to perform DRDA AS functions. Actually VSE/ESA cannot 
act as a DRDA requester, as SQL/DS in the VM/ESA environment does. 

The most difficult and time-consuming area is that of establishing the LU 6.2 
sessions over which the DRDA traffic will flow. It requires work on both AR and 
AS sides, and many parameters must be compatible with their counterparts on 
the partner location. 

To summarize what has to be customized in VSE/ESA specifically for DRDA: 

• CICS 

- DFHSIT 

- DFHSNT 

- DFHTST 

• CICS RDO definitions for: 

- Programs 

- Transactions 

- Connections 

- Sessions 

• SQL/DS 

- DBNAME Directory (TPNs, Servers) 

• VTAM (under VM) 

- Add CICS Application 

- CDRMS 

- CDRSCs (remote LUs) 

• If VTAM/VSE owns the network (not under VM) 

- Add Network/Netids from where the clients are coming 

- CDRMS 

- LU names 

- Resources to local major nodes/NCP 

• Multi-Language Considerations 

- Add CCSIDs to support Latin-1 and Latin-2 code pages 

- Add Field Procedures to change the default collating sequence to 
accommodate the cultural sort sequence for Slovenia. 

All these customization tasks are described in more detail in the next pages and 
the related system tables are in the appendixes. 


© Copyright IBM Corp. 1996 
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4.1.1 CICS/VSE Setup 

The SQL/DS application server (AS) communicates with its application requester 
(AR) via CICS LU 6.2 links. The CICS partition to be used for this DRDA 
connection must have LU 6.2 links to remote systems with the AR. 

We have updated the following CICS tables to enable the LU 6.2 support required 
for DRDA. 

DFHSIT 


DFHSIT TYPECSECT, 


APPLID=IPFA21CD, 

DRDA CICS APPLICATION NAME 

GRPLIST=VSELIST, 

DRDA GROUP LIST 

ISC=YES, 

DRDA REQUIRES INTERSYSTEM COMMUNICATION 

SUFFIX=2A, 

DRDA DFHSIT SUFFIX 

TST=2A, 

DRDA TEMP STORAGE TABLE 

END DFHSITBA 



Figure 83. DFHSIT DRDA Parameters at ITSO 


DFHSIT TYPECSECT, 


APPLID=Z00CICS4, 

DRDA CICS APPLICATION NAME 

GRPLIST=VSELST4, 

DRDA GROUP LIST 

ISC=YES, 

DRDA REQUIRES INTERSYSTEM COMMUNICATION 

SUFFIX=4A, 

DRDA DFHSIT SUFFIX 

TST=4A, 

DRDA TEMP STORAGE TABLE 

END DFHSITBA 



Figure 84. DFHSIT DRDA Parameters at ZPIZ 


• APPLID 

The CICS APPLID (IPFA21 CD at ITSO or Z00CICS4 at ZPIZ) will be used to 
define the CICS application to VSE/VTAM. It will also be needed when 
establishing LU-LU sessions from: 

- DDCS/2 (the “Partner_LU”) 

- AVS/VM (the “LUname”) 

- DDCS for AIX (the “Partner_LU”) 

DFHSNT 

One DFHSNT entry for each remote user, or a group of users, allowed to connect 
to the DRDA server. 


DFHSNT TYPE=ENTRY, 

USERID=DRDAX1, 
PASSWRD=SQL4VSE, 
RSLKEY= (1) 


Figure 85. DFHSNT for DRDA Access at ITSO 


84 Multi-Language Solutions 







Figure 86. DFHSNT for DRDA Access at ZPIZ 


DFHTST 


An entry in DFHTST must be provided to support the ARICAXED error logging. 



Figure 87. DFFITST Entry for AXE Logging at ITSO and ZPIZ 


CICS RDO definitions 

We have defined all the programs, transactions, connections, and sessions using 
the CICS RDO facility. 

• An entry must be defined for the AXE program (ARICAXED). 

• All transaction codes (TPNs), which will be available for DRDA users to 
access VSE SQL/DS DRDA servers, must be defined. 

• LU 6.2 links (CONNECTIONS and SESSIONS) must be defined for each remote 
LU. 

In order to facilitate the management of all the DRDA entries we have defined 
them in a unique group called DRDAITSO at ITSO and DRDAZPIZ at ZPIZ. 

• DRDA definitions 

The CEDA DEFINE command is used to define the following resources: 

- LU 6.2 CONNECTIONS 

- LU 6.2 SESSIONS 

- TPN transactions 

- AXE program 

• DRDA LIST creation 

In order to install the DRDAZPIZ Group at CICS initialization, we have added 
it to the current LIST: 

CEDA ADD GR(DRDAITSO) LIST(VSELIST) 

CEDA ADD GR(DRDAZPIZ) LIST(VSELST4) 
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4.1.2 DBNAME Directory 

The DBNAME directory is used to map an incoming request for conversation 
allocation to a predetermined application server identified by the incoming TPN. 

In the DBNAME directory all application IDs and database names are provided 
together with the transaction program names which must be defined in a 
DFHPCT or CICS RDO transaction definitions. The DBNAME directory used, is 
shown below: 


'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k-k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k 


*TPN 

APPLID 

*DBNAME 

PNM 

PRIV * 


~k 

1 1 

22 

3 44 

5 * 


*2. .5 

0.7 

12. 

...9 45 

0 * 


TPN1 

SYSARI01 

*SQLDS 

F8 



TPN2 

SYSARI01 

SQLDS 

F8 



TPN3 

SYSARI01 

SQLDS 

F8 

Y 


XMP1 

SYSARI02 

EXAMPLE 




Figure 88. 

DBNAME Directory - ZPIZ 




■k'k-k-k'k'k'k'k-k'k-k'k'k'k'k'k'k-k'k'k'k'k'k-k-k-k'k'k'k'k'k'k'k'k'k'k-k'k'k'k-k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k 

*TPN 

APPLID 

*DBNAME 

PID 

PRIV 

■k 

■k 

1 1 

22 

3 44 

5 

■k 

*2. .5 

0.7 

12. 

. .9 45 

0 

~k 

TPN1 

SYSARI01 

*SQLVSDB1 

Z1 

Y 


TPN2 

SYSARI02 

SQLVSDB2 

Z2 

Y 


TPN3 

SYSARI01 

SQLVSDB1 

Z1 

Y 


AXEO 

SYSARI01 

SQLVSDB1 

Z1 

Y 



SYSARI05 

SQLVS350 

F8 




SYSARI03 

SQLVSDBO 

F8 




SYSARI03 

SQLVSDBO 

F4 




SYSARI04 

SQLVSDBP 

F7 




SYSARI04 

SQLVSDBP 

F5 




SYSARI01 

SQLVSDB1 

BG 




SYSARI01 

SQLVSDB1 

F2 




SQLVM350 

SQLVM350 





SQLVMDBO 

SQLVMDBO 





SQLVMDB1 

SQLVMDB1 





SQLVMDB2 

SQLVMDB2 





SQLVMDB3 

SQLVMDB3 





SQLVMDB4 

SQLVMDB4 





SQLVMDB5 

SQLVMDB5 





SQLVMDB6 

SQLVMDB6 





SQLVMDB7 

SQLVMDB7 





SQLVMDB8 

SQLVMDB8 





SQLVMDB9 

SQLVMDB9 





SQLVMDBA 

SQLVMDBA 





SQLVMDBB 

SQLVMDBB 




D6DB 

SYSAPtlOO 

SQLDS 





Figure 89. DBNAME Directory at ITSO 
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The following rules apply: 

• An entry in the DBNAME directory for each TPN 

An entry must be defined for each TPN used by remote users. Multiple users 
may have access to the same TPN. 

• Each TPN must be defined in DFHPCT 

An entry for each TPN must be defined in DFHPCT. As the TPN is a CICS 
transaction name, it must be part of the PCT in order to be activated. 

• Multiple TPNs to one APPLID 

Multiple TPNs can refer to the same APPLID. This could be very useful to 
give specific advantages to one user of a database server. CICS transaction 
definition allows security (RSL) and class (TCIass) to be defined at 
transaction level. These features associated with a TPN can also be used to 
provide different uses of the AXE program to different users. 

• Exclusive use of a Real Agent 

Exclusive use of a real agent can be associated to a TPN (TPN1 at ITSO or 
TPN3 at ZPIZ). This privilege marked with a “Y” in column 50 of the TPN 
entry is only valid for the DRDA environment. It will give the user of this TPN 
the privilege of having a real agent available for its exclusive use during its 
entire LU 6.2 conversation. TPNs with no exclusive privilege will have their 
real agent released at the end of each unit of work. 

• DBNAME to APPLID relationship should be constant 

For example in the DBNAME directory that is shown, the database with the 
DBNAME of SQLVSDB1 at ITSO or SQLDS at ZPIZ always maps to the 
APPLID SYSARI01. 

4.1.3 SQL Connection Flow between ITSO and ZPIZ and Local 

VM AR Connect Flow to local SQL/DS VSE AS at ITSO 

Please refer to Figure 71 on page 72 in Chapter 3 

VM AR Connect Flow to local SQL/DS VSE AS at ZPIZ 

Please refer to Figure 72 on page 73 in Chapter 3 

VM AR Connect Flow to remote SQL/DS VSE AS at ITSO 

Please refer to Figure 73 on page 74 in Chapter 3 

VM AR Connect Flow to remote SQL/DS VM AS at ITSO 

Please refer to Figure 74 on page 75 in Chapter 3 

4.1.4 CICS Screen Captures 

The screen captures from the RDO processes are shown on the next pages. 
Some of them are extracts only to show just the vital or corresponding 
information. 
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CEDA E GR (DRDAITSO) 
ENTER COMMANDS 


NAME 

TYPE 

GROUP 

TIME 

SOEO 

CONNECTION 

DRDAITSO 

19.11.24 

LOEO 

CONNECTION 

DRDAITSO 

19.08.50 

MMDR 

CONNECTION 

DRDAITSO 

19.08.50 

VS01 

CONNECTION 

DRDAITSO 

19.13.23 

OEDJ 

CONNECTION 

DRDAITSO 

19.11.24 

ZOOS 

CONNECTION 

DRDAITSO 

12.05.42 

ARICAXED 

PROGRAM 

DRDAITSO 

19.14.44 

IPFCLOEO 

SESSIONS 

DRDAITSO 

19.20.28 

IPFSLOEO 

SESSIONS 

DRDAITSO 

19.15.15 

IPFA2GL4 

SESSIONS 

DRDAITSO 

19.15.15 

Z00AVS01 

SESSIONS 

DRDAITSO 

19.16.19 

IPFBOEDJ 

SESSIONS 

DRDAITSO 

12.07.03 

Z00T010A 

SESSIONS 

DRDAITSO 

12.07.03 

AXEO 

TRANSACTION 

DRDAITSO 

19.18.16 

TPN1 

TRANSACTION 

DRDAITSO 

19.18.38 


Figure 90. CEDA E G(DRDAITSO) at ITSO 

CEMT I CONN 

STATUS: RESULTS - OVERTYPE 

TO MODIFY 

Conn (SOEO) Net (IPFSLOEO) 

Ins Acq 

Conn(LOEO) Net(IPFCLOEO) 

Ins Acq 

Conn (MMDR) Net (IPFA2GL4) 

Ins Acq 

Conn (OEDJ) Net (IPFBOEDJ) 

Ins Acq 

Conn(VS01) Net(Z00AVSL1) 

Ins Acq 

CONN(ZOOS) Net(Z00T010A) 

Ins Acq 


Figure 91. CEMT I CONN at ITSO 
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CEDA E G(DRDAZPIZ) 


ENTER COMMANDS 


NAME 

TYPE 

GROUP 

DRC1 

CONNECTION 

DRDAZPIZ 

DRC2 

CONNECTION 

DRDAZPIZ 

DRC3 

CONNECTION 

DRDAZPIZ 

DRC4 

CONNECTION 

DRDAZPIZ 

DRC5 

CONNECTION 

DRDAZPIZ 

DRC6 

CONNECTION 

DRDAZPIZ 

DRC7 

CONNECTION 

DRDAZPIZ 

DRC8 

CONNECTION 

DRDAZPIZ 

ARICAXED PROGRAM 

DRDAZPIZ 

ARICDIRD PROGRAM 

DRDAZPIZ 

ARICMOD 

PROGRAM 

DRDAZPIZ 

ARIISQL 

PROGRAM 

DRDAZPIZ 

ARIITEM 

PROGRAM 

DRDAZPIZ 

ARIITRX 

PROGRAM 

DRDAZPIZ 

ARIMS001 PROGRAM 

DRDAZPIZ 

ARIRCONT PROGRAM 

DRDAZPIZ 

ARIOOLRM PROGRAM 

DRDAZPIZ 

DRS1 

SESSIONS 

DRDAZPIZ 

DRS2 

SESSIONS 

DRDAZPIZ 

DRS3 

SESSIONS 

DRDAZPIZ 

DRS4 

SESSIONS 

DRDAZPIZ 

DRS5 

SESSIONS 

DRDAZPIZ 

DRS6 

SESSIONS 

DRDAZPIZ 

DRS7 

SESSIONS 

DRDAZPIZ 

DRS8 

SESSIONS 

DRDAZPIZ 

CAXE 

TRANSACTION 

DRDAZPIZ 

CIRA 

TRANSACTION 

DRDAZPIZ 

CIRB 

TRANSACTION 

DRDAZPIZ 

CIRC 

TRANSACTION 

DRDAZPIZ 

CIRD 

TRANSACTION 

DRDAZPIZ 

CIRR 

TRANSACTION 

DRDAZPIZ 

CIRT 

TRANSACTION 

DRDAZPIZ 

CISQ 

TRANSACTION 

DRDAZPIZ 

ISQL 

TRANSACTION 

DRDAZPIZ 

TPN1 

TRANSACTION 

DRDAZPIZ 

TPN2 

TRANSACTION 

DRDAZPIZ 

TPN3 

TRANSACTION 

DRDAZPIZ 


Figure 92. CEDA E G(DRDAZPiZ) at ZPiZ 

CEMT I CONN 

STATUS: RESULTS - OVERTYPE 

TO MODIFY 

Conn (DRC1) Net (Z00T010A) 

Ins Acq 

Conn(DRC2) Net(Z00AVSL2) 

Ins Acq 

Conn (DRC3) Net (IPFA2GL4) 

Ins Acq 

Conn(DRC4) Net(IPFCLOEO) 

Ins Rel 

Conn(DRC5) Net(IPFCLOCO) 

Ins Rel 

Conn(DRC6) Net(IPFSLOEO) 

Ins Rel 

Conn (DRC7) Net (IPFBOEDJ) 

Ins Rel 

Conn (DRC8) Net (IPFP101B) 

Ins Rel 


Figure 93. CEMT I CONN at ZPIZ 
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CONNECTION 

NETNAME 

COMMENT 

DRC1 

Z00T010A 

Connection to ZPIZ DDCS/2 

DRC2 

Z00AVSL2 

Connection to ZPIZ AVS/VM 

DRC3 

IPFA2GL4 

Connection to ITSO AVS/VM 

DRC4 

IPFCLOEO 

Connection to ITSO DDCS/2 

DRC5 

IPFCLOCO 

Connection to ITSO DDCS/2 

DRC6 

IPFSLOEO 

Connection to ITSO DDCS/2 

DRC7 

IPFBOEDJ 

Connection to ITSO DDCS for AIX 

DRC8 

IPFP101B 

Connection to ITSO DDCS/2 


Table 8. CICS Connectivity 


CEDADC(LOEO) G (DRDAITSO) 
OBJECT CHARACTERISTICS 
CEDA View 

Connection : LOEO 

Group : DRDAITSO 

CONNECTION IDENTIFIERS 
Netname : IPFCLOEO 

INDsys : 

REMOTE ATTRIBUTES 
REMOTESystem : 

REMOTENaitB : 

CONNECTION PROPERTIES 


ACcessmethod 

: Vtam 

Protocol 

: Appc 

SInglesess 

: No 

Datastream 

: User 

RECordformat 

: U 

OPERATIONAL PROPERTIES 

AUtoconnect 

: Yes 

INService 

: Yes 


Vtam | IRc | INdirect 
Appc | Lu61 
No | Yes 

User | 3270 | SCs | STrfield | Lms 
U | Vb 

No | Yes | All 
Yes | No 


Figure 94. CEDA D C(LOEO) G(DRDAITSO) at ITSO Local via 3174 
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CEDA D C (ZOOS) G (DRDAITSO) 
OBJECT CHARACTERISTICS 
CEDA View 

Connection : ZOOS 

Group : DRDAITSO 

CONNECTION IDENTIFIERS 
Netname : Z00T010A 

INDsys : 

REMOTE ATTRIBUTES 
REMDTESystem : 

REMOTEName : 

CONNECTION PROPERTIES 


ACcessmethod 

: Vtam 

Protocol 

: Appc 

SInglesess 

: No 

Datastream 

: User 

RECordformat 

: U 

OPERATIONAL PROPERTIES 

AUtoconnect 

: Yes 

INService 

: Yes 


Vtam | IRc | INdirect 
Appc | Lu61 
No | Yes 

User | 3270 | SCs | STrfield | Lms 
U | Vb 

No | Yes | All 
Yes | No 


Figure 95. CEDA D C(ZOOS) G(DRDAITSO) at ITSO for ZPtZ via 3745 


CEDA D S(IPFCLOEO) G (DRDAITSO) 


OBJECT CHARACTERISTICS 


CEDA View 



Sessions 

IPFCL0E0 


Group 

DRDAITSO 


SESSION IDENTIFIERS 


Connection 

L0E0 


SESSName 

NETnameq 

MOdename 

IBMRDBM 


SESSION PROPERTIES 


Protocol 

Appc 

Appc | Lu61 

MAximum 

RECEIVEPfx 

00020 , 00010 

0-32767 

RECEIVECount 

SENDPfx 

No 

No | 1-999 

SENDCount 

No 

No | 1-999 

SENDSize 

04096 

1-30720 

RECEIVESize 

04096 

1-30720 


Figure 96. CEDA D S(iPFCLOEO) G(DRDAITSO) at ITSO Local via 3174 
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CEDA D S(ZOOTOIOA) G (DRDAITSO) 


OBJECT CHARACTERISTICS 


CEDA View 



Sessions 

Z00T010A 


Group 

DRDAITSO 


SESSION IDENTIFIERS 


Connection 

ZOOS 


SESSName 

NETnameq 

MDdename 

IBMRDB 


SESSION PROPERTIES 


Protocol 

Appc 

Appc | Lu61 

MAximum 

RECEIVEPfx 

00020 , 00010 

0-32767 

RECEIVECount 

SENDPfx 

No 

No | 1-999 

SENDCount 

No 

No | 1-999 

SENDSize 

04096 

1-30720 

RECEIVESize 

04096 

1-30720 


Figure 97. CEDA D S(ZOOTOIOA) G(DRDAITSO) at ITSO for ZPIZ via 3745 


CEDA V TR(CAXE) G (DRDAZPIZ) 


OBJECT CHARACTERISTICS 


CEDA View 



TRansaction 

CAXE 


Group 

DRDAZPIZ 


PROGram 

ARICAXED 


TWasize 

00000 

0-32767 

PROFile 

PArtitionset 

DFHCICST 


STatus 

Enabled 

Enabled | Disabled 

PRIMedsize 

00000 

0-65520 

REMOTE ATTRIBUTES 


DYnamic 

REMOTESystem 

REMOTENaitB 

TRProf 

No 

No | Yes 

Localq 

SCHEDULING 


No | Yes 

PRIOrity 

001 

0-255 

TCLASS 

NO 

NO | 1-10 

ALIASES 



Alias 

TAskreq 

Xtranid 

07F6C4C2 



Figure 98 (Part 1 of 2). CEDA D TR(CAXE) G(DRDAZPIZ) az ZPIZ 
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RECOVERY 

DTimout 

No 

No | 

1-6800 

Indoubt 

Backout 

Backout | Commit | Wait 

REStart 

No 

No | 

Yes 

SPurge 

Yes 

No | 

Yes 

IPurge 

Yes 

No | 

Yes 

DUmp 

No 

Yes 

No 

IRACe 

No 

Yes 

No 

SECURITY 

Extsec 

No 

No | 

Yes 

IRANsec 

01 

1-64 


RSL 

00 

0-24 

I Public 

RSLC 

No 

No | 

Yes | External 


Figure 98 (Part 2 of 2). CEDA D TR(CAXE) G(DRDAZPIZ) az ZPIZ 


ITSO: use default AXEO transaction 


CEDA V TR(TPN1) G (DRDAZPIZ) 


OBJECT CHARACTERISTICS 


CEDA View 

TRansaction 

IPN1 


Group 

DRDAZPIZ 


PROGram 

ARICAXED 


TWasize 

00000 

0-32767 

PROFile 

DFHCICST 


PArtitionset 



STatus 

Enabled 

Enabled | Disabled 

PRIMedsize 

00000 

0-65520 

REMOTE ATTRIBUTES 


DYnamic 

No 

No | Yes 

REMDIESystem 

REMOIEName 

IRProf 



Localq 


No | Yes 

SCHEDULING 

PRIOrity 

001 

0-255 

TCLASS 

NO 

NO | 1-10 

ALIASES 

Alias 

TAskreq 

Xtranid 

RECOVERY 



DTimout 

No 

No | 1-6800 

Indoubt 

Backout 

Backout | Commit | Wait 

REStart 

No 

No | Yes 

SPurge 

No 

No | Yes 

IPurge 

No 

No | Yes 

DUmp 

No 

Yes | No 

IRACe 

No 

Yes | No 

SECURITY 

Extsec 

No 

No | Yes 

IRANsec 

01 

1-64 

RSL 

00 

0-24 | Public 

RSLC 

No 

No | Yes | External 


Figure 99. CEDA D TR(TPNI) G(DRDAZPIZ) at ZPIZ 
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4.1.5 VTAM/VSE Setup 

There are no special considerations for VTAM/VSE under VM. Most of the 
VTAM/VSE system tables are shown in Appendix A, “System Tables and Sample 
Programs” on page 191. 

Note that all customization tasks are documented in Setup and Usage of SQL/DS 
in a DRDA Environment, GG24-3733-01. 


CATALOG APPLDRD. B 

REPLACE=YES 

APPLDRD 

VBUILD TYPE=APPL 


IPFA21CD APPL 

ACBNAME=IPFA21CD, 

C 



AUTH=(ACQ,PASS,VPACE), 

C 



APPC=NO, 

C 



SONSCIP=YES, 

C 



EAS=30, 

C 



PARSESS=YES, 

C 



MODETAB=DRDAMOD, 

C 



DLOGMOD=IBMRDBM, 

VPACING=0 

C 

POWER 

APPL 

AUTH= (ACQ) 


PNET 

APPL 

AUTH= (PASS, ACQ), VPACING=3, RDDETA&A/TMLOGTB, DLOGM3D=PNET 

IESWAITT APPL 

AUTH= (NOACQ) 



Figure 100. VSE/VTAM Definition at ITSO 


ZPIZ: Use Z00CICS4 

4.1.6 Multi-Language Considerations 

Apart from the conventional customization tasks that have to be done after 
SQL/DS is installed, we have done some additional customization steps. 

1 Update SYSTEM.SYSSTRING to support CCSID=870 and CHARNAME=870 
at ITSO and CHARNAME=SLOVENIA at ZPIZ 

2 Assemble field procedure to support Latin-2 

3 Catalog SQLPARM containing SQL startup parameters 

4 Update and submit SQL startup job 

5 Grant schedule (CICSDRDA at ITSO and Z00CICS4 at ZPIZ) 

6 Create sample table to include Latin-2 field procedure 

4.1.7 Assemble Field Procedure to Support Latin-2 

SQL/DS V3.5 provides enhanced sample field procedures to change the default 
collating sequence to accommodate the Latin-2 cultural sort sequence for 
Slovenia, Poland, Romania, Serbia (L2), Montenegro (L2). Without a field 
procedure, string data is stored based on the system/390 collating sequence, 
which causes two major problems. 

The first is that system/390 collating is not the appropriate collating sequence for 
some European alphabets. 

The second is that SQL/DS cannot collate double-byte vowels correctly; it 
considers the two component characters individually rather than as a single 
character. 
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The technical solutions for both problems is to code the field procedure for the 
affected columns. On the ZPIZ side the SLOSORT field procedure was 
customized. The original FP870L2 was changed according to the customer 
requirements. 


* $$ JOB JNM=SIOSORT, CLASS=0 
// JOB SLOSORT 

// LIBDEF *,SEARCH=PRD2.SQL350 
// LIBDEF *,CATALOGNPRD2.SQL350 
// OPTION CATAL 
PHASE SLOSORT, * 

// EXEC ASSEMBLY 

COPY SLOSORT SQL/DS 350 provided field procedure FP870L2 

END 

/* 

// EXEC LNKEDT, PARM=<MSHP<: 

/* 

/& 

* $$ EOJ 


Figure 101. Job to Assemble Field Procedure for Latin-2 Support 

This SLOSORT assembly job could be used for the field procedure sample listed 
in A.3, “Field Procedure Sample” on page 199. 

4.1.8 SQLPARM Catalog Job 


* $$ JOB JNM=SQLCATAL, CLASS=0 
// JOB SQLCATAL 

// EXEC LIBR, PARM=FMSHPF 
ACCESS SUBL=PRD2. SQL350 
CATALOG SQLPARM.A REPL=Y 
RMTUSERS=10 
NCUSERS=30 
DBNAME=SQLDB 
CHARNAME=SLOVENIA 
/+ 

/* 

/& 

* $$ EOJ 


Figure 102. SQLPARM Catalog Job at ZPIZ 

Please refer to Figure 58 on page 63 in 3.3.3, “Defining Slovenian Character 
Set” on page 62. 
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4.1.9 SQL Startup Job 


* $$ JOB JNM=SQLDRDA, CLASS=8, DISP=K 

// JOB SQLDRDA START SQL/DS IN MULTIPLE USER MODE 
// LIBDEF PROC, SEARCH=PRD2. SQL350 

// EXEC PROC=ARIS35PL *— SQL/DS PRODUCTION LIBRARY ID PROC 

// EXEC PROC=ARIS35DB *— SQL/DS DATABASE ID PROC 

// EXEC ARISQLDS, SIZE=AUTO,PARM=<RARMID=SQLPARM< : 

/* 

/& 

* $$ EOJ 


Figure 103. SQL Startup Job at ZPIZ 


4.1.10 Grant Schedule 


* $$ JOB JNM=ARIS35FD, CLASS=8 

// JOB ARIS35FD GRANT SCHEDULE FOR DFHSIT APPLID 
// LIBDEF PROC, SEARCH=PRD2. SQL350 

// EXEC PROC=ARIS35PL *— SQL/DS PRODUCTION LIBRARY ID PROC 

// EXEC PROC=ARIS35DB *— SQL/DS DATABASE ID PROC 

// EXEC PROC=ARISDBSD *— RUN DBS UTILITY IN SINGLE USER MODE 

CONNECT SQLDBA IDENTIFIED BY SQLDBAPW; 

GRANT SCHEDULE TO Z00CICS4 IDENTIFIED BY SQLDBAPW; 

/* 

/& 

* $$ EOJ 


Figure 104. Grant Schedule Z00CICS4 at ZPIZ 

ITSO GRANT SCHEDULE TO CICSDRDA IDENTIFIED BY CICSDRDA 

CIRB CICSDRDA, 1 0,,,,SQLVSDB1 
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4.1.11 Create Sample Table with Field Procedure for Latin-2 Support 


* $$ JOB JNM=ARIDBS, CLASS=4 
// JOB ARIDBS 

// LIBDEF PROC, SEARCH=PRD2. SQL350 
// LIBDEF *,SEARCH=PRD2.SQL350 
// EXEC PGM=ARIDBS,SIZE=AUTO 
CONNECT SQLDBA IDENTIFIED BY SQLDBAPW; 

SET ERRORMODE CONTINUE; 

DROP TABLE LATIN2; 

CREATE TABLE LATIN2 (A CHAR(IO) FIELDPROC SLOSORT) IN SAMPLE; 

INSERT INTO LATIN2 (A) VALUES (4»&abc4); 

INSERT INTO LATIN2 (A) VALUES (CzzzzabcC); 

INSERT INTO LATIN2 (A) VALUES (CaaaaabcC); 

INSERT INTO LATIN2 (A) VALUES(4AaAAabc4); 

INSERT INTO LATIN2 (A) VALUES (dae '' efgh4); 

INSERT INTO LATIN2 (A) VALUES (4ofe^uwxy4); 

SELECT * FROM LATIN2 ORDER BY 1; 

COMMIT WORK; 

/* 

/& 

* $$ EOJ 


Figure 105. Create Sample Table with Field Procedure at ZPIZ 


4.1.12 Additional CCSID Support and Choosing a National Language and 
Character Set 

As the number of CCSIDs supported on databases across DB2 platforms 
increases, the demand for support for conversion from these new CCSIDs will 
increase as well. These enhancements address this demand, by increasing the 
support available for Traditional Chinese, Simplified Chinese, Korean, Cyrillic, 
Greek and Windows code pages. In order to support the requested conversions, 
it is necessary to add support for two new CCSIDs on the host as well. The last 
release of SQL/DS V3.5 supports some new character sets at run time. These 
characters sets are added to the list of IBM-supplied character sets (Cyrillic, 
Greek-423). The Greek-423 Charname uses code page 423, character set 218 
and CCSID 423. Unfortunately, at the present time, the Slovenian character set 
required by our customer ZPIZ is not available. A new character set was 
supplied for them. Please refer to 3.3.3, “Defining Slovenian Character Set” on 
page 62 for more details. 

SQL/DS connections on VM/ESA at ZPIZ with CCSID 870 and Charname Slovenia 
were established to SQL/DS VSE/ESA at ITSO, where the database system was 
started with CCSID 500 and Charname International. 

VSE/ESA SQL/DS with the following CCSID (CP/CS) is now enabled: 

- ZPIZ CCSID 870 (Charname - SLOVENIA) <-> ITSO 037 (LI USA) 

- ZPIZ CCSID 870 (Charname - SLOVENIA) <-> ITSO 500 (LI INTERNATIONAL) 
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Before you submit the JCL, make sure that SQL/DS is initiated with the private 
protocol SQLDS, so that conversion is not enabled. 


»»> Insert 4846 figl06 e6 here ««< 

* $$ JOB JNM=SID, CLASS=0, DISP=L 

* $$ LST CLASS=B,DEST=(*,VMSQLADM) 

* $$ PUN CLASS=B, DEST= (*, VMSQLADM) 

// JOB SLO 

// LIBDEF *,SEARCH=PRD2.SQL350 
// SETPFIX LIMIT=100K 
// EXEC ARIDBS, SIZE=AUTO 
SET ERRORMODE CONTINUE; 

CONNECT SQLDBA IDENTIFIED BY SQLDBAPW TO SQLDS; 

COMMENT 6* INSERT NEW ROWS FOR SBCS and MIXED TRANSLATIONS *6 
DELETE FROM SYSTEM. SYSSTRINGS WHERE INCCSID=037 AND OUTCCSID=870; 
INSERT INTO SYSTEM.SYSSTRINGS VALUES (037, 870, 6SS6, NULL,NULL, 6 6, 

<= <=; «, 

6 aaaaaagne.< (+] &eeeiiliAB | $*) ;A-/AMAN0Q£E,%_>?iEiE0ll<o>:#@66=t55abcde 
fghi- •*—<E jkhmopqrZE-; • fstuvwxyz,, [ce-£¥ fif®4§!^4- '6 !' ""t {ABCDEFGHIooo 
66} JKIjyiNOPQR-uuuuy\STT3VWXYZ-00X60123456789-UUUU6); 

DELETE FROM SYSTEM. SYSSTRINGS WHERE INCCSID=870 AND OUTCCSID=037; 
INSERT INTO SYSTEM.SYSSTRINGS VALUES (870,037, 6SS6, NULL,NULL, 6 6, 

6 MMaagn-.<(+!&e 6 eeiieTB'$*); [-/AAiA AQA| ,%_>?AENE] ll 0 E:#@ 66 =tEabcde 
fghiII0-<o> jklmnopqr• -IsY—•-CEstuvwxyzaSfe- •;£ 6 „£¥§fifHMW ""t {ABCDEFGHIooo 
66 }JKLMNOPQR•uuuuy\STUVWXYZ•666660123456789-UUUU 6 ); 

DELETE FROM SYSTEM. SYSSTRINGS WHERE INCCSID=500 AND OUTCCSID=870; 
INSERT INTO SYSTEM.SYSSTRINGS VALUES (500, 870, 6SS6, NULL,NULL, 6 6, 
66; .6, 

6 aaaaaagn6 .< (+1 &eeeeiiiiB! $*); -/MAaMQNo, %_>?EEEEIII±0:#@66=t«abcde 
fghi»fe---— jklrmopqrCfeffiY • •; stuvwxyz,; 6ce-„ [£¥fiflS[§!40i- ']' ""t{ ABCDEFGHIooo 
66} JKIJYlNOPQR-uuuuy\STUVWXYZ-666660123456789-UUUU6); 

DELETE FROM SYSTEM. SYSSTRINGS WHERE INCCSID=870 AND OUTCCSID=500; 
INSERT INTO SYSTEM.SYSSTRINGS VALUES (870,500, 6SS6, NULL,NULL, 6 6, 
66; .6, 

6 aaaaaagn6 .< (+1 &eeeeiiiifi! $*); -/MAAMQN',%_>?]EoEEIIEI:#@66=t±abcde 
fghi0«»-ts- jklmnopqr--CEYffi-Ahtuvwxyz • ;ce- 1 6 „ [£¥fi§f®4^4 -' ""t {ABCDEFGHIooo 
66} JKIMNOPQR-uuMy\STUVWXYZ-666660123456789-UUUU6); 

CCMMIT WORK; 

/* 

/& 

* $$ EOJ 

»»> End of Insert ««< 


Figure 106. SYSTEM.SYSSTRINGS Table 
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Chapter 5. OS/2 Implementation 


This chapter describes experiences with workstation and host setup in DRDA 
multi-language environments between ITSO Boblingen and ZPIZ Ljubljana. In 
order to establish connections, communication controllers, 3745 and 3174, were 
implemented at the ITSO and a 3745/NCP at ZPIZ. 

The chapter is divided into: 

1 Connectivity via 3745 ITSO to 3745 ZPIZ 

2 Connectivity via 3174 ITSO to 3745 ZPIZ 


5.1 Multi-Language Considerations 

In order to connect to a data base with an incompatible code page, the following 
steps need to be performed. Although this information is correct at this time (Nov 
'96), you should always check your DB2 manuals first, to see if there is more 
up-to-date information applicable to the same topic. 

1. Make sure you are using DB2 server V2.1.2 or above. 

2. Ask your IBM representative to obtain two conversion files for the pair of 
code pages that you want to support. For example, if you want to support 
connection between code page 819 and code page 915, you need 
08190915.cnv and 09150819.cnv tables. 

3. Place these binary files in the <DB2Path>/sqllib/conv directory on UNIX 
platforms such as AIX, and in the <DB2Path>/sqllib/conv directory on 
various Intel platforms such as OS/2 or Windows. 

4. If you are only using Common Server DB2 C/S products, you need to place 
these files only on the server. 

5. For connections between Common Server DB2 C/S and mainframe DB2 
implementations, such as SQL/DS or DB2/MVS, you need to first ensure that 
the corresponding DB2 host platform supports the same conversion. You 
only need the Host-to-Workstation conversion table on the workstation side. 

6. Once the connection between incompatible code page environments is 
established, you will get a warning message: 


SQL0863W A successful connection was made, but only single byte 
characters should be used. SQLSTATE=0153. 


Figure 107. Connection Information 

This is normal, and intended to warn you that you should only use the 
characters that exist in both code pages. 


© Copyright IBM Corp. 1996 
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5.2 Connectivity via 3745 ITSO to 3745 ZPIZ 

In our environment, independent LUs via 3745 are defined as static with CDRSC. 
The ITSO's Token-Ring LAN is connected to the host via the 3745. In this 
environment the 3745 is shared by multiple systems. The owner of NCP is the 
ISC system. 3745 has two TICs (Token-Ring Interface Connector/Coupler): TIC1 
and TIC2. The owner of TIC is the ISC system, that of TIC2 is the IS2 system. All 
LUs via 3745 are defined using TIC2 of the IS2 system. Therefore, the VTAM 
switched major node definition is defined by IS2 VTAM. All panels and files are 
given in A.1, “VM/VTAM Definitions - BOEVMIS2” on page 191 for BOEVMISC 
and A.2, “VSE/VTAM Definitions - BOEVMIS2” on page 196 for BOEVMIS2. The 
IPFNV3/NCP must be activated on both machines. 

In the switched major node, independent LUs are defined as LOCADDR=00. In 
this sample IPFSLOEO is defined as a predefined independent LU. CPNAME, or 
IDBLK and IDNUM should be defined for XID exchange (refer to Figure 207 on 
page 195). IPFSLOEO, which is an independent LU via 3745, uses the static LU 
definition. The CDRSC major node is ISTPDILU, which is created dynamically. 

The adjacent link station is IPFCP20E, which is defined in IPF2SWI0 using the 
static LU definition, ISTPDILU which is created automatically. When the LU has a 
session such as IPFSLOEO, you can display the NETID of this LU (d 
net,id=istpdilu,e). 

IPFSLOEO - static LU independent definition. 

IPF2SWI0 - CDRSC major node. 

ISTPDILU - The CDRSC major node. 

IPFCPSOE - adjacent link station. 

5.2.1 AVSVM 

AVSVM is part of the VM operating system and handles communications 
between VM and non-VM systems in the SNA network. AVS translates protocol 
between APPC/VM and APPC/VTAM and enables the SNA network to allocate 
conversation with global resources. AVS is a VTAM application that runs with 
VTAM either in a separate virtual machine in the same GCS group or in the 
VTAM virtual machine in a GCS group. AVS should be defined as a VTAM 
application major node. A gateway must be activated before use. This can be 
done interactively or in a profile in the AVS virtual machine. This profile is 
named AGWPROF GCS. (Refer also to Figure 208 on page 195). 

5.2.2 SQL/DS 

SQL/DS for VM/ESA and VSE/ESA must be installed with DRDA code. DRDA can 
be installed using the appropriate files which are already predefined (for VM/ESA 
ARISDBMA) and are to be found in the publications for SQL/DS Installation for 
VM and VSE. 

5.2.3 OS/2 

• Multi-Protocol Transport Services (MPTS) Customization 

• OS/2 Communication Manager Customization via 3745 

• DB2/2 and DDCS/2 Customization 


100 Multi-Language Solutions 



5.2.4 MPTS Customization 

Multi-Protocol Transport Services (MPTS) provides support that enables OS/2 to 
operate on a network by using Network Driver Interface Specification (NDIS). 
NDIS is a medium access control (MAC) interface for local area network (LAN) 
adapter drivers and protocol driver. NDIS handles the basic transmission and 
reception of packets on the network. 

After you invoke MPTS, the logo window is displayed. When you edit the 
configuration in the Current Configuration list box, you will get the Parameters 
window. You must enter the Medium Access Control address (MAC) of the 
Token-Ring Adapter in your workstation into the Network Adapter Address 
parameter. You may get this address from the Token-Ring administration or host 
connection administrator. 

The following panel show parameters that are selected in the Configure 
Workstation window. 



Figure 108. MPTS Configuration Menu 


For our installation we selected the IBM Token-Ring Network Adapter with three 
protocols: 

• IBM IEEE 802.2 

• IBM OS/2 NETBIOS 

• IBM TCP/IP 
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The IBM IEEE 802.2 protocol allows us to communicate with our host CICS/VSE 
using APPC over the Token-Ring. 

The NETBIOS protocol allows us to communicate with our DB2/2 Client 
Application Enabler (CAE) over the Token-Ring. 


Parameters for IBM Token-Ring Network Adapter 



The address specified in the Network adapter address field must match the last 
six bytes of the PATH macro's DIALNO parameter in the switched major node 
definition described below. 
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Figure 110. C:\IBMCOM\PROTOCOL.INI 
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* PS/2 FOR DRDA 



■k-k-k-k'k-k'k-k'k'k'k-k-k-k-k-k'k-k-k-k-k-k-k-k'k-k-k-k'k-k-k-k-k-k-k-k-k-k-k'k-k-k-k'k'k-k-k-k'k-k-k-k-k'k-k-k-k-k-k-k-k-k-k-k-k-k 


IPFCPSOE PU 

ADDR=0E, 

COULD BE ANYTHING (NOT USED) 

C 


IDBLK=05D, 

IDBLK OF OS/2 CCMM. MANAGER 

C 


IDNUM=E000E, 

IDENTIFICATION NUMBER 

C 


DISCNT=NO, 

VTAM DOES NOT HANG UP 

C 


MAXOUT=l, 

MAXIMUM NUBER OF PIUS 

C 


MAXDATA=1920, 

MAXDATA FOR OS/2 COMM. MANAGER 

C 


USSTAB=ISTSNA, 


C 


M0DETAB=AM0DETAB, 


C 


DLOGMOD=MSDICQ, 


C 


MAXPATH=1, 

NUMBER OF DIAL OUT PATHS TO PU 

C 


VPACING=2, 


C 


PUTYPE=2, 


C 


CPNAME=CPS0E, 


C 


ISTATUS=ACTIVE 



PATH 

DIALNO=020440001010100E, 

C 


GRPNM=IPFG3L8 9, 

LOGICAL GROUP NAME OF TIC 2 

c 


GID=1, 


c 


PID=2 



IPFSL0E0 LU 

LOCADDR=0 0, M0DETAB=DRDAM0D,DLOGM3D=IBMRDBM 


IPFT2TEA LU 

LOCADDR=02 



IPFT2TEB LU 

LOCADDR=03 



IPFT2TEC LU 

LOCADDR=04 



IPFT2TED LU 

LOCADDR=05 




Figure 111. IPF2SWI VTAMLIST - Switched Major Node 
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VTAM ATCSTR01: 



Figure 112. Definitions and Correlations VTAM, NCP, CM/2 at ZPIZ 

As from VTAM 4.2, the CPNAME parameter within the Switched Major Node 
definition must be different to the PU name. After you have finished configuring 
MPTS, you have to re-boot the PS/2. 

5.2.5 CM/2 Customization 

CM/2 is a communication service platform providing a wide range of services for 
IBM OS/2 that communicate with host computers and other PWS. Before using 
the CM/2 in conjunction with DB2/2 and DDCS/2 to establish an LU6.2 session to 
the host, you must customize a configuration file to support Advance Program to 
Program Communication. 

The following definitions are required for APPC (LU6.2): 

• DLC Adapter Parameters definition, which specifies Data Link Control 
characteristics of the Token-Ring adapter. 

• SNA Local node Characteristics definition, which specifies characteristics 
that are common to all APPC users on the workstation. 

• At least one SNA Connection definition. 

• The necessary optional SNA Features for SNA LU6.2 communication to the 
VSE/ESA and VM/ESA host which consists of: 
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- A Local Logical Unit definition for the local Queue Manager. 

- A Partner Logical Unit definition for each remote Queue Manager system 
with which this workstation wants to communicate. 

- A MODE definition to specify sets of session properties that are used in 
binding APPC sessions. 

- A Transaction Program definition for every local transaction invoked 
when messages are sent to or received from a remote system. 

Before setting up the communication between the workstation running OS/2 we 
have summarized the SNA and DRDA parameters. Naming conventions were 
introduced to enable easier customization of all software involved. 


Table 9. SNA Customization for ITSO and ZPIZ for DRDA Environment via 3745 


ITSO Boblingen 

ZPIZ Ljubljana 


SQL/DS VSE 

SQL/DS VM 

SQL/DS VSE 

SQL/DS VM 

Network id 

DEIBMIPF 

DEIBMIPF 

SIZPIZ00 

SIZPIZ00 

Controller Address 

400010301002 

400010001088 

IDBLK and IDNUM 

05D E000E 

05D 00001 

Local Node Name 

IPFCPSOE 

IPFCPSOE 

A01P01 

A01P01 

Partner Node Name 
(SSCP) 

IPFV2A 

IPFV2 

A05M 

SIZPIZ "SIZPIZ6" 

Fully Qualified 

Partner LU Name 

DEIBMIPF. 

IPFA21 CD 

DEIBMIPF. IPFA2GL4 

SIZPIZ00. Z00CICS4 

SIZPIZ00. Z00AVSL1 

Partner LU Alias 

VSEANL1 3 

BOEVMIS2 

Z00VS374 

Z00VM374 

Local LU Name 

IPFSL0E0 

IPFSL0E0 

Z00T010A 

Z00T010A 

Local LU Alias 

IPF3745 

IPF3745 

Z00T01 

Z00T01 

Mode Name 

IBMRDBM 

IBMRDBM 

IBMRDB 

IBMRDB 

Transaction Program 
Name 

TPN1 

SQLVMDBO 

TPN 1 

SQLDBA 

Security 

PGM 

PGM 

PGM 

PGM 

Communication Type 

APPC 

APPC 

APPC 

APPC 

CPI Communication 

IPFVS1S5 

IPFVM1S5 

Z00VS1S5 

Z00VM1S5 

Note: 1. IPF stands for Boblingen,Germany. ZOO for Ljubljana, Slovenia 

2. VM stands for VM. VS stands for VSE. 

3. 5 as the last character means that the 3745 communication controller was used. 

4. S stands for symbolic destination name. 

5. TPN1 (VSE - ceda i tran(tpnl). SQLVMDBO (VM - IUCV res. id.) 

6. PU ipfcpsOe (d net,id—ipfsIOeO. alslist - ipfcpsOe). 


The following are guidelines for the relevant parameters in the Communications 
Manager Profile List Sheet in the CM/2 configuration definition. They describe 
parameters appropriate for defining APPC APIs on a Token-Ring. 

Please note that we have shown only the screens with ITSO parameters. 

Differing values for ZPIZ are listed below each screen where appropriate. 

To start with the CM/2 customization: 

1 Double click on the CM/2 folder 

2 Double click on the CM/2 Setup icon and in the CM/2 Installation and Setup 
window, press the OK button 

3 In the CM Setup window, select the Setup... button 
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4 In the Open Configuration window, enter configuration name and press the 
OK button 

5.2.5.1 Configuring APPC APIs through the Token-Ring 

We have used the Communications Manager setup to configure APPC APIs 
through Token-Ring. On the Communications Manager Configuration Definition 
window we have checked Additional definitions and selected Token-ring or other 
LAN types and APPC APIs. 



Figure 113. CM/2 Configuration Definition 
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Communications Manager Profile List 



. APPC APIs through token-ring for communications 


All profiles listed as Required MUST be configured to support the pictured 
[configuration. Check marks indicate configuration for a profile is complete. 

Action 



•y Required SNA local node characteristics 

s/ Optional SNA connections 

V 1 Optional SNA features 


. — : — : - 


Configure... | 

Close 

Help 

A-V. 

$ 






Figure 114. CM/2 Profile List 

By selecting the DLC - Token-ring or other LAN types CM/2 profile name we 
have a window that enables us to configure the Data Link Control profile. 
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5.2.6 Configuring DLC Token-Ring 


Token Ring or Other LAN Types DLC Adapter Parameters 


Adapter 


iiL 


rWindow count- 


:Free unused links 

Hi Send alert for 
beaconing 

Maximum link stations 


Send window count 
Receive window count 


Maximum activation attempts [O 
Maximum I-field size 


1920 


(1 - 255) 

(0 - 99) 

(265 - 16393) 


Percent of incoming calls (%) 0 (0 - 100) 


Link establishment 
retransmission count 


Retransmission threshold 

Local sap (hex) 

C&SM LAN ID 

Connection network 
name (optional) 


04 


(1 - 127) 
(1 - 127) 
(04 - 9C) 


IPFL3745 


OK 


Delete 


Cancel 


Help 


>;• 


Figure 115. Token Ring DLC Adapter Parameters 


ZPIZ C&SM LAN ID .SIZPIZ01 

You can take most defaults here. You should enter a name for the following 
parameter: 

C&SM LAN ID. To identify the ring - used by system management products. 

Note: If you increase the maximum number of link stations parameter, be 

sure to set the link station parameter in Network Transport Services/2 
(NTS/2) accordingly. 
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5.2.7 Defining Local Node Characteristics 



Figure 116. Local Node Characteristics 

ZPIZ Network ID.SIZPIZOO 

Local node name.A01P01 

Local node ID (hex).... 05D 00001 

The key fields are: 

Network ID DEIBMIPF is the name of the network to which this PU belongs. 

This must match the NETID parameter of the VTAM start list. 

Node type PS/2 is an end node accessed by the host through a 3745 

gateway. 

Local Node ID The values 05D E000E are used for the XID exchange. They 

match IDBLK and IDNUM values specified on our PU definition 
statement in the VTAM Switched Network major node as in 
IPF2SWI0 VTAMLST (refer to Figure 207 on page 195). 

Local Node Options 


Local Node Options 


Local node alias name IPFCPSOE| 

Maximum compression level 
Maximum compression tokens 
Optional comment 


NONE 

hj 

0 



(0 


(0 - 3800) 


LOCAL NODE FOR IPFL3745 VIA NCP 


V Activate Attach Manager at start up 


OK 


Cancel 


Help 


Figure 117. Local Node Options 

ZPIZ Local Node Alias Name...A01 P01 
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The key field is: 

Activate Attach Manager 

This is a feature of APPC which manages incoming requests to 
begin a communication session. In our case, the Attach Manager is 
started automatically when the Communications Manager is started. 

5.2.8 Defining SNA Host Connections 



Figure 118. Connection Definition Panel 1 of 3 

Select To host, as Partner type and click on the Create... button. 


Adapter List 


Select the local adapter to be used for this connection. 
Adapter Type 

Ethernet (ETHERAND) 

PC Network 
Twinaxial 

■SDLC Adapters 0,1 Regular or User-dialed ISDN 
■SDLC Virtual Port for Auto-dialed ISDN (adapters 2-127) 



Configured 


Yes 


Adapter number 0 * (0-1) 


Continue... 


Cancel Help 


Figure 119. Connection Definition Panel 2 of 3 

Select appropriate Adapter type and click on to the Continue... button. 
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Figure 120. Connection Definition Panel 3 of 3 


ZPIZ Local PU Name.A01P01 

APPN support.checked 

Node ID (hex).05D 00001 

LAN Destination address (hex).. 400010001088 

Partner network ID.SIZPIZ00 

Partner node name.SIZPIZ 


Please check APPN support , but not Activate at startup. In this case the link will 
be activated by the partner's incoming connection. The Partner network ID and 
the Partner node name correspond to the host CP definitions on the ZPIZ side. 

The key fields are: 

Link Name HOSTOOOI is the link name of the connection to the host. 

LAN Destination address 

400010301002 is the LAN MACADDRess of the 3745 gateway to our 
host. 

Partner network ID 

DEIBMIPF is the NETID of the host VTAM as specified in the VTAM 
start list. 

Partner node name 

IPFV2 VM/VTAM name (owner of NCP). 

Node ID 05D E000E are the IDBLK and IDNUM parameters as specified in the 
VTAM switched major node. 
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Figure 121. Partner LUs 


ZPIZ Network ID / LU Name / Alias... SIZPIZ00.Z00AVSL01 VM122AVS 

Network ID / LU Name / Alias... SIZPIZ00.Z00CICS4 VSE135 
Network ID / LU Name / Alias... DEIBMIPF.IPFA2GL4 BOBAVS 
Network ID / LU Name / Alias... DEIBMIPF.IPFA21 CD BOBCICS 

In the Partner LUs window, ZPIZ has defined four partner LUs. The VM122AVS 
and VSE135 alias names define the LUs with the network ID of the local node, 
and BOBAVS and BOBCICS alias names represent LUs defined in another 
network. We must use this method whenever the node does not have a 
connection to an APPN Network Node Server. We can also use this method when 
we are not sure about the capabilities of our partner node. 
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DDCS/2 workstation gateway (IPF3745: NETBIOS over Token-Ring 

DB2/2 Manager configuration 

Server name = IPF3745 DB2/2 

Server 

System Database Directory DB Connection Services Directory 

DB Alias = IPFVM1A5 Local DBN = IPFVM1D5 

DB Name = IPFVM1D5 Target DBN= SQLVMDBO 

WS Name = IPFVM1N5 

FARM = D: \SQLLIB\DCS1ARI .MAP 

Node Directory 

WS Name = IPFVM1N5 
Network ID = DEIBMIPF 
Partner LU Alias = B0EVMIS2 
Local LU Alias = IPF3745 
Mode Name = IBMRDBM 

Communications Manager 

Network ID = DEIBMIPF 

Mode Name = IBMRDBM 

Local LU Alias = IPF3745 
Local LU Name = IPFSLOEO 
Partner LU Alias = B0EVMIS2 
Partner LU Name = IPFA2GL4 


Host System: 

VM/VTAM AVSVM 

ATCSTR: NETID=DEIBMIPF AGW ACTIVATE GATEWAY IPFA2GL4 GLOBAL 
SNA Maj Node: AGW CNOS IPFA2GL4 IPFSLOEO IBMRDBM 20 10 10 

LU = IPFA2GL4 System User Directory: 

LU = IPFSLOEO 

DLOGMOD = IBMRDBM IUCV *IDENT SQLVMDBO GLOBAL 


SQL/DS (Application Server) 

User ID = DRDAX1 
DBNAME = SQLVMDBO 


Figure 122. DB2/2 DB Server to DDCS/2 Gateway to SQL/DS VM/ESA ITSO via 3745 


DDCS/2 

Application 

Requester 
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DDCS/2 workstation gateway (IPF3745): NETBIOS over Token-Ring 

DB2/2 Manager configuration 

Server name = IPF3745 DB2/2 

Server 

System Database Directory DB Connection Services Directory 

DB Alias = IPFVS1A5 Local DBN = IPFVS1D5 

DB Name = IPFVS1D5 Target DBN= SQLVSDB1 

WS Name = IPFVS1N5 

PARM = D: \SQLLIB\DCS1ARI .MAP 

Node Directory 

WS Name = IPFVS1N5 
Network ID = DEIBMIPF 
Partner LU Alias = VSEANL13 
Local LU Alias = IPF3745 
Mode Name = IBMRDBM 

Communications Manager 

Network ID = DEIBMIPF 

Mode Name = IBMRDBM 

Local LU Alias = IPF3745 
Local LU Name = IPFSLOEO 
Partner LU Alias = VSEANL13 
Partner LU Name = IPFA21CD 


Host System: 

VSE/VTAM CICS/VSE 

ATCSTR: NETID=DEIBMIPF CEDA DEF CONN (LOEO) Netname (IPFSLOEO) 
SNA Ma j Node: 

APPL LU = IPFA21CD 
LU = IPFSLOEO 

DLOGMOD = IBMRDBM DBNAME Dir (ARISDIRD) : TPN1 SQLVSDB1 


SQL/DS (Application Server) 


DBNAME = SQLVSDB1 


Figure 123. DB2/2 DB Server to DDCS/2 Gateway to SQL/DS VSE/ESA ITSO via 3745 


DDCS/2 

Application 

Requester 


Chapter 5. OS/2 Implementation 115 



DDCS/2 workstation gateway (IPF3745: NETBIOS over Token-Ring 

DB2/2 Manager configuration 

Server name = IPF3745 DB2/2 

Server 

System Database Directory DB Connection Services Directory 

DB Alias = Z00VM1A5 Local DBN = Z00VM1D5 

DB Name = Z00VM1D5 Target DBN= SQLDBA 

WS Name = Z00VM1N5 

FARM = D: \SQLLIB\DCS1ARI .MAP 

Node Directory 

WS Name = Z00VM1N5 
Network ID = DEIBMIPF 
Partner LU Alias = Z00VM374 
Local LU Alias = IPF3745 
Mode Name = IBMRDB 

Communications Manager 

Network ID = SIZPIZOO 

Mode Name = IBMRDB 

Local LU Alias = IPF3745 
Local LU Name = IPFSLOEO 
Partner LU Alias = Z00VM374 
Partner LU Name = Z00AVSL1 


Host System: 

VM/VTAM AVSVM 

ATCSTR: NETID=SIZPIZ00 AGW ACTIVATE GATEWAY Z00AVSL1 GLOBAL 
SNA Maj Node: AGW CNOS Z00AVSL1 IPFSLOEO IBMRDBM 20 10 10 

LU = Z00AVSL1 System User Directory: 

LU = IPFSLOEO 

DLOGMOD = IBMRDB IUCV *IDENT SQLDBA GLOBAL 


SQL/DS (Application Server) 

User ID = Z00VMU1 
DBNAME = SQLDBA 


Figure 124. DB2/2 DB Server to DDCS/2 Gateway to SQL/DS VM/ESA ZP\Z via 3745 


DDCS/2 

Application 

Requester 
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DDCS/2 workstation gateway (IPF3745) : NETBIOS over Token-Ring 

DB2/2 Manager configuration 

Server name = IPF3745 DB2/2 

Server 

System Database Directory DB Connection Services Directory 

DB Alias = Z00VS1A5 Local DBN = Z00VS1D5 

DB Name = Z00VS1D5 Target DBN= SQLVSDB1 

WS Name = Z00VS1N5 

PARM = D: \SQLLIB\DCS1ARI .MAP 

Node Directory 

WS Name = Z00VS1N5 
Network ID = DEIBMIPF 
Partner LU Alias = Z00VS374 
Local LU Alias = IPF3745 
Mode Name = IBMRDB 

Communications Manager 

Network ID = SIZPIZOO 

Mode Name = IBMRDB 

Local LU Alias = IPF3745 
Local LU Name = IPFSLOEO 
Partner LU Alias = Z00VS374 
Partner LU Name = Z00CICS4 


Host System: 

VSE/VTAM CICS/VSE 

ATCSTR: NETID=SIZPIZ00 CEDA DEF CONN(DRC6) Netname (IPFSLOEO) 
SNA Ma j Node: 

APPL LU = Z00CICS4 
LU = IPFSLOEO 

DLOGMOD = IBMRDB DBNAME Dir (ARISDIRD) : TPN1 SQLDS 


SQL/DS (Application Server) 


DBNAME = SQLDS 


Figure 125. DB2/2 DB Server to DDCS/2 Gateway to SQL/DS VSE/ESA ZPIZ via 3745 


5.2.9 Defining Optional SNA Features 

We defined options for the following features: 

• Local LUs 

• Partner LUs 

• Modes 

• Conversation security 

• CPI Communications 


DDCS/2 

Application 

Requester 
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Figure 126. List of Optional SNA Features 


5.2.9.1 Defining Local LU 



Figure 127. Local LU Definition Panel 


ZPIZ LU name.Z00T010A 

Alias.Z00T01 


Normally we do not have to define a local LU because, as stated earlier, our 
local node name is also the default LU. 

Note: When you define your local LU for your DDCS workstation, be sure to 
select Independent LU for the network accessible unit (NAU) address. 
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To ensure that our workstation uses this local LU when DDCS starts, we must 
set the OS/2 APPCLLU environment variable. We have added the following 
statement to our CONFIG.SYS file: 

SET APPCLLU=Z00T01 
The key fields are: 

• LU Name. IPFSLOEO is the name by which the Logical Unit is known 
throughout the SNA network. It is defined in the VTAM switched network 
major node. 

• Alias. IPF3745 is the alias name by which transaction programs may refer to 
the LU. 

• IPFSLOEO is defined as an Independent LU. For more information about 
independent LUs please refer to Figure 207 on page 195. 

5.2.9.2 Defining the Partner LU 



Figure 128. SNA Partner LUs for ITSO and ZPIZ 

ZPIZ Network ID LU Name Alias... SIZPIZ00.Z00AVSL01 VM122AVS 

Network ID LU Name Alias... SIZPIZ00.Z00CICS4 VSE135 
Network ID LU Name Alias... DEIBMIPF.IPFA2GL4 BOBAVS 
Network ID LU Name Alias... DEIBMIPF.IPFA21 CD BOBCICS 

Partner LU information includes the fully qualified name and the alias name of 
the remote LU. We must configure a partner LU for every partner to which we 
want to refer by an alias name. 

The fully qualified name of the partner LU consists of the Network ID of the 
partner's LU and the partner's LU name. We also have to enter the alias, which 
is a local name for the partner LU. 

Note: If you use an APPN connection, you do not have to define a partner LU. 

When an EN (APPN) is connected to a serving NN and the resource is not 
found in the local directory, CM/2 directs the request to the serving NN, 
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and a search request takes place in the network node. When an LEN 
(APPC) is connected to a serving NN and the resource is not found in the 
local directory, no further search is done by CM/2. 

The key fields are: 

Fully qualified LU name 

Comprises the network ID and the partner LU name. 

DEIBMIPF is the ID of the network on which the partner LU resides. 
BOEVMIS2, VSEANL13, Z00VM374, Z00VS374 are the names of the 
partner LUs residing on the network. 

Alias BOEVMIS2, VSEANL13, Z00VM374, Z00VS374 are the alternative names 
or alias names by which transaction programs may refer to the LUs. 


Partner LU 


Fully qualified 

LU name DEIBMIPF [ . |lPFA2GL4 

Alias BOEVMIS2 | 

H Conversation security verification 
-Dependent partner LU- 


3Partner LU is dependent 



Optional comment 


ITSO 3745 VM SQL/DS 
OK i Cancel | [ Help | 


Figure 129. Partner LU - ITSO (AVSVM) 

ZPIZ Network ID / LU Name.SIZPIZ00.Z00AVSL1 

Alias.VM122AVS 


Partner LU 


Fully qualified 

LU name DEIBMIPF [ . |lPFA21CD 

Alias VSEANL13 | 

S Conversation security verification 
-Dependent partner LU-- 


11 Partner LU is dependent 



Optional comment 


ITSO 3745 VSE SQL/DS 
OK j Cancel | [ Help | 


Figure 130. Partner LU - ITSO (CICS SIT APPLID) 
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ZPIZ Network ID / LU Name.SIZPIZ00.Z00CICS4 

Alias... VSE135 



Figure 131. Partner LU - ZPIZ (AVSVM) 

ZPIZ Network ID / LU Name.DEIBMIPF.IPFA2GL4 

Alias.BOBAVS 



Figure 132. Partner LU - ZPIZ (CICS SIT APPLID) 

ZPIZ Network ID / LU Name.DEIBMIPF.IPFA21 CD 

Alias.BOBCICS 
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5.2.9.3 Defining the Mode Definition 

When establishing a session between two LUs, we must specify a mode. The 
mode contains information about the characteristics of the session. 

Note: To establish a connection, the same mode name must exist on both sides 
of the link. 



Figure 133. Mode Definition Panel for ITSO 


ITSO Mode name.IBMRDBM 

Maximum RU size.4096 

The key fields are: 


Mode Name IBMRDBM is the name of the IBM supplied mode that contains the 
session properties for the LU6.2 session. It must match the 
DLOGMOD value of the IPFSL0E0 definition in the VTAM switched 
major node definition, refer to Figure 207 on page 195. 

Class of service 

#CONNECT is for the interactive communications. 

Mode Session Limit 

The maximum number of sessions that can be active at the same 
time for the LUs using this mode. 

Minimum contention winners 

The minimum number of sessions in which you want a logical unit 
(LU) in this mode to win in a contention with a partner LU. 

Receive Pacing Window 

The receiving node rate sets the pace for message transmission. 
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Maximum RU size 

We have used default RU size for our messages transferred on 
sessions using this mode. This number matches the maximum 
RUSIZES value specified in the VTAM MODENT statement for 
mode entry #CONNECT. 



Figure 134. Mode Definition Panel for ZPiZ 


ZPIZ Mode name.IBMRDB 

Maximum RU size.4096 


— Mode definition - IBMRDB location ZPIZ - 

Mode Definition IBMRDB was implemented at ZPIZ, so the appropriate mode 
should be used at CM/2 setup and for CICS RDO. 
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5.2.9.4 Defining Conversation Security 


SNA Features List 


To create, change, or delete a definition of a feature, select a list 
item, then choose the appropriate action. 

-SNA feature information- 


Features Definition Comment 


Local LUs 

L - 


1 ! 

Partner LUs 




Modes 




Transaction program definitio 




Transaction program defaults 


Transaction program security 

LU to LU security 


CPI Communications side info 




LL_ WMM:r 

| 





Create... 


Change... 


Delete 


Close 


Help 


II 

'yr. • 

Ly_ mu 


Figure 135. Conversation Security 


5.2.9.5 Defining CPI Communications 


SNA Features List 


To create, change, or delete a definition of a feature, select a list 
item, then choose the appropriate action. 

-SNA feature information- 


Features Definition Comment 


Local LUs 

C. 

IPFVS1S5 ITSO 3745 VS 


Partner LUs 


IPFVM1S5 ITSO 3745 VI- 


Modes 


IPFVM2S5 ITSO 3745 VM 


Transaction program definitio 

.. * 

ZGGVS1S5 ZPIZ 3745 VS 


Transaction program defaults 

ZGGVM1S5 ZPIZ 3745 VM 

Transaction program securitt. 


Conversation security 


LU to LU security 

•;.> :•% {: fa ■ f : ;S ; *, ■; ■■ C.: w/. m ■ $ > 




a _ 







II 

Create... 


-ipe'env i 

Close 


Help 


Ly_ 


Figure 136. CPI Communication 

ZPIZ Symbolic destination name.VM122AVS 

Symbolic destination name.VSE135B 

Symbolic destination name.BOBAVS 

Symbolic destination name.BOBCICS 
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On the CPIC Communication Side Information window we provide information 

about the server we want to define. 

Symbolic destination The symbolic destination name defines the name of the 
CPIC side information. We can choose any name we like. 
This name will be used when we catalog the node 
directory for this AS. 

Partner LU For Partner LU we can use the fully qualified name or an 

alias if we want to communicate with a partner LU that 
has been previously defined. 

Partner TP For Partner TP, we have specified the remote TPN. This 

information is case sensitive. For SQL/DS on VM this 
value is the name of the SQL server database. For 
SQL/DS on VSE this value is the name of the CICS APPC 
transaction. 

Security type The security type is optional because the security type 

specified when we catalog an entry in the node directory 
overrides this specification. 

Mode name For the mode name, we must select the name we have 

defined for our DRDA connection. 



ZPIZ Symbolic destination name.VSE135B 

Alias.VSE135 

TPN.TPN1 

Mode name.IBMRDB 
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Figure 138. CPI Communication - ITSO VM SQL/DS(DB - SQLVMDBO) 


ZPIZ Symbolic destination name.VM122AVS 

Alias.VM122AVS 

TPN.SQLDBA 

Mode name.IBMRDB 



Figure 139. CPI Communication - ITSO VM SQL/DS(DB - SQLVMDB6) 
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Figure 140. CPI Communication - ZPiZ VSE SQL/DS(DB - SQLDS) 

ZPIZ Symbolic destination name.BOBCICS 

Alias.BOBCICS 

TPN.TPN1 

Mode name.IBMRDB 



Figure 141. CPI Communication - ZPIZ VM SQL/DS(DB - SQLDBA) 
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ZPIZ Symbolic destination name.BOBAVS 

Alias.BOBAVS 

TPN.SQLVMDBO 

Mode name.IBMRDBM 

5.2.10 DB2/2 and DDCS/2 Customization 

To connect to a DRDA database server, DDCS/2 requires information in the 
database directories. We must specify entries in the following directories to 
enable the DDCS workstation to connect to a DRDA AS: 

• Database connection services (DCS) directory 

• Node directory 

• System database directory 


Table 10. Database Directory Entries for ITSO and ZPIZ Environment via 3745 


ITSO Boblingen 

ZPIZ Ljubljana 


SQL/DS VSE 

SQL/DS VM 

SQL/DS VSE 

SQL/DS VM 

Database Directory 

Database alias 

IPFVS1A5 

IPFVM1A5 

Z00VS1A5 

Z00VM1A5 

Database name 

IPFVS1D5 

IPFVM1D5 

Z00VS1D5 

Z00VM1D5 

Node name 

IPFVS1N5 

IPFVM1N5 

Z00VS1N5 

Z00VM1N5 

Authentication 

DCS 

DCS 

DCS 

DCS 

DCS Database Directory 

local Database 

IPFVS1D5 

IPFVM1D5 

Z00VS1D5 

Z00VM1D5 

Target Database 

SQLVSDB1 

SQLVMDBO 

SQLDS 

SQLDBA 

Node Directory 

Node name 

IPFVS1N5 

IPFVM1N5 

Z00VS1N5 

Z00VM1N5 

Protocol 

APPC 

APPC 

APPC 

APPC 

Symb.dest.name 

IPFVS1S5 

IPFVM1S5 

Z00VS1S5 

Z00VM1S5 

Security 

Program 

Program 

Program 

Program 

Note: 1. IPF - Boblingen,Germany. ZOO for Ljubljana, Slovenia. 



2. VM - for VM, VS for VSE. 




3. 5 - 3745 communication controller 

was used. 



4. S - Symbolic Destination Name (DCS). 



5. N - Node Name. 




6. D - Database Name. 





5.2.10.1 Cataloging in the DCS Directory 

The DCS directory contains an entry for each DRDA AS that can be accessed 
from the workstation. When the application issues a CONNECT statement 
specifying a remote database using APPC protocol, the database manager 
searches the DCB directory for a matching database name entry. If it finds a 
matching entry, it uses the DRDA protocol for the connection. If it does not find a 
matching entry, it uses the private protocol. To catalog a DCS database do the 
following: 

Click on the Database connection services directory icon on the Database 
Director - Tree view window. The Database Connection Services Directory - 
Details View is displayed, listing the DCS databases for this instance. 
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ITSO target database name .SQLVMDBO 

database alias .IPFVM1D5 


Database Connection Services Directory - Details View 


:□ 


Directory entry View Help 


lil 

i]l 


03 

M 


DB2 


Database 

SQLVSDB1 

ZO0VM1D4 

zfovs^b^ 

Z00VS1D5 

ZPIZ 

ZPIZVSE 


Target 

Database 


SQLVSDB1 
SQLDBA 


SQUJBA 


SQLDS 

SQLDS 

SQLDBA 

SQLDS 


Application 

Requester 


Parameters 


Comment 


ZPIZ 3174 VM SQL - SQLDBA 

ZPIZ 3174 VSE SQL - SQLDS 
ZPIZ 3745 VSQ SQL - SQLDS 


Figure 143. Database Connection Services 2 of 2 


ZPIZ target database name .SQLDBA 

database alias .Z00VM1D5 
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5.2.10.2 Cataloging in the Node Directory 


IB 



pjK 

[I 

B 




Node Directory - Details View 


Directory entry View Help 


sip 


DB2 


Node 


PFVM1N4 

PFVH1N5 

PFVM2N4 

PFVH2N5 

PFVS1N4 

PFVS1N5 


Instance Protocol 


APPC 

APPC 

APPC 

APPC 

APPC 

APPC 


Network 
ID 


Partner 
Logical 
Unit 


Local 

Logical 

Unit 

Alias 


Partner 

Logical 

Unit 

Alias 


Transmission 

Service 

Mode 


Symbolic 

Destination 

Name 


IPFVM1S4I 

IPFVM1S 

IPFVM2S4I 

IPFVM2S 

IPFVS1S4 

IPFVS1S5 


Figure 144. Node Directory 


ITSO Node (WS name).IPFVM1N5 

Protocol.APPC 


Symbolic Destination Name.IPFVM1S5 

(will be used in CM/2 CPI communication definition) 

5.2.10.3 Cataloging in the System Database Directory 


g 


System Database Directory - Details View 


Directory entry View Help 






DB2 


Alias 

Type 

IPFVM2A4 

Fterr te 

IPFVM2A5 

Remote 

IPFVS1A4 

Remote 


Database 


SQLVMDB6 

SQLVMDB6 

SQLVSDB1 


Location 


IPFVM2N4 

IPFVM2N5 

IPFVS1N4 


Comment 


ITSO 3174 VM SQL - SQLVMDB6 
ITSO 3745 VM SQL - SQLVMDB6 
ITSO 3174 VSE SQL - SQLVSDB1 


Figure 145. System Database Directory 1 of 2 


ITSO Location.IPFVM1N5 

This value should match the node name in the node directory. 

Database.SQLVMDBO 

This value should match the target database name or database 
name in the database connection services directory. 

Alias.IPFVM1A5 

This value will be used to establish the connection with the database 
in the connect to command. 
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m System Database Directory - Details View 


Directory entry View Help 



DB2 


Alias 

Type 

Database 

Location Comment 




L-.: 

Z00VM1A4 

Z00VS1A4 

ZOOVS1A5 

Remote 

• ••• 

Remote 

Remote 

Z00VM1D4 

Z00VS1D4 

Z00VS1D5 

Z00VM1N4 

ZOOVS1N4 

ZQ0VS1N5 






Figure 146. System Database Directory 2 of 2 


ZPIZ Location.Z00VM1N5 

This value should match the node name in the node directory. 

Database.Z00VM1 D5 

This value should match the target database name or database 
name in the database connection services directory. 

Alias.Z00VM1A5 

This value will be used to establish the connection with the database 
in the connect to command. 

5.2.11 SNA Subsystem 

The following pages show the information about logical link and LU6.2 sessions. 
You can take the following steps to find such information: 

1. Open the CM/2 folder 

2. Click on the Subsystem Management 

3. Select SNA Subsystem 

You will then find the menu containing all the resources. 
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In LU 6,2 Sessions 


Session Establish Options Help 


Local Partner Number of 


LU Alias LU Alias Partner LU Mode Sessions 



Figure 149. LU 6.2 Session (BOEVMIS2) 


132 Multi-Language Solutions 
























































































































































































































































































































































































































































































































LU 6.2 Session Details 


Local LU alias IPF3745 Local LU IPFSLQEG 

Partner LU alias VSEANL13 Partner LU DEIBMIPF.IPFA21 CD 

Mode IBMRDBM Mode session limit 2G 

Number of sessions 11 

Session Logical Conversation 

ID Link ID TP name 


Session 

ID 

Logical 

Link 

Conversation 

ID 

2ooG27733ft!Q5d£d 



30b8277673eb5d6d 

HOSTGOG1 


34c827767beb5d6d 

HOSTOOG1 


36dG27767feb5d6d 

HOSTGOG1 


38d8277683eb5d6d 

HOSTOOOI 


3ae0277687eb5d6d 

HOSTGOG1 


:3ce827768beb5d6d 

HOSTGOG1 


:3ef027768feb5d6d 

HOSTGOG1 



Compression... Deactivate 


Figure 152. LU 6.2 Session Details (VSEANL13) 


LU 6.2 Sessions 


Session Establish Options Help 


Local 
LU Alias 


Partner 

LU Alias Partner LU 


IPF3745 VSEANL13 


Partner LU Mode 

DEIBMIPF.IPFA21CD SNASVCMG 


Number of 
Sessions 


IPF3745 ZG0VM374 SIZPIZ0G.ZG0AVSL1 SNASVCMG 1 

IPF3745 BOEVMIS2 DEIBMIPF.IPFA2GL4 IBMRDBM 11 

IPF3745 BOEVMIS2 DEIBMIPF.IPFA2GL4 SNASVCMG 1 

IPF3745 VSEANL13 DEIBMIPF.IPFA21CD IBMRDBM 11 


Figure 153. LU 6.2 Sessions (Z00VM374) 
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LU 6.2 Session Details 


Local LU alias IPF3745 Local LU IPFSLQEG 

Partner LU alias Z0OVS374 Partner LU SIZPIZ0O.Z0OCICS4 

Mode IBMRDB Mode session limit 20 

Number of sessions 10 


Session 

ID 


Logical 

Link 


Conversation 
ID TP name 


24804776e6eb5d6d 

26884776eaeb5d6d 

28904776eeeb5d6d 

2a984776f2eb5d6d 

2ca04776f6eb5d6d 

2ea84776faeb5d6d 

30b04776feeb5d6d 


HOSTOOOI 

HOST0OO1 

HOSTGO01 

HOSTOOGI 

HOSTGOG1 

HOSTGOGI 

HOSTGOGI 




Compression... Deactivate 


Close 


Help 


Figure 156. LU 6.2 Session Details (Z00VS374) 


5.3 Connectivity via 3174 ITSO to 3745 ZPIZ 
5.3.1 OS/2 Setting for 3174 Cluster Controller 

The LU IPFCLOEO is recognized by VM/VTAM as an independent LU via 3174, 
using a dynamic LU definition with cross-domain resource (CDRSC). The CDRSC 
major node is IPF2CDRS which is predefined. An adjacent link station is 
IPFCP200. Dynamic LU definition of independent LUs should be done by 
specifying XID=YES,DYNLU=YES in the PU statement of the gateway controller 
only. These operands should not be specified for the other PU statements. Then 
an LU definition is not required in the local SNA major nodes. Dynamic LU 
definition of independent LUs can be done in the cross domain resource major 
node also. In cross domain resources, the adjacent link station should be defined 
as ALSLIST=(IPFCP200). For connection to CICS/ESA of VSE/ESA IPFA21 CD 
should be defined in this major node. Refer to Figure 204 on page 193 and 
Figure 203 on page 193. 

IPFCLOEO - Dynamic LU independent definition 
IPF2CDRS - CDRSC major node 
IPFCP200 - Adjacent link station 
IPFCP20E - PU 

This part is very similar to the previous one, covering connectivity via 3745. 
Nevertheless, some panels which might be of interest when implementing 3174 
connectivity are given. 

• OS/2 Communication Manager Customization 

• DB2/2 and DDCS/2 Customization 
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5.3.2 OS/2 Communication Manager Customization 


Table 11. SNA Customization for ITSO and ZPIZ for DRDA Environment via 3174 


ITSO Boblingen 

ZPIZ Ljubljana 


SQL/DS VSE 

SQL/DS VM 

SQL/DS VSE 

SQL/DS VM 

Network id 

DEIBMIPF 

DEIBMIPF 

SIZPIZ00 

SIZPIZ00 

Controller Address 

400020201001 

400010001088 

IDBLK and IDNUM 

05D E000E 

05D 00001 

Local Node Name 

IPFCP20E 

IPFCP20E 

A01P01 

A01P01 

Partner Node Name 
(SSCP) 

IPFV2A 

IPFV2 

A05M 

SIZPIZ6 

Fully Qualified 

Partner LU Name 

DEIBMIPF. 

IPFA21 CD 

DEIBMIPF. IPFA2GL4 

SIZPIZ00. Z00CICS4 

SIZPIZ00. Z00AVSL1 

Partner LU Alias 

VSEANL1 3 

BOEVMIS2 

Z00VS317 

Z00VM31 7 

Local LU Name 

IPFCLOEO 

IPFCLOEO 

Z00T010A 

Z00T010A 

Local LU Alias 

IPF3174 

IPF3174 

Z00T01 

Z00T01 

Mode Name 

IBMRDBM 

IBMRDBM 

IBMRDB 

IBMRDB 

Transaction Program 
Name 

TPN1 

SQLVMDBO 

TPN 1 

SQLDBA 

Security 

PGM 

PGM 

PGM 

PGM 

Communication Type 

APPC 

APPC 

APPC 

APPC 

CPI Communication 

IPFVS1S4 

IPFVM1S4 

Z00VS1S4 

Z00VM1S4 

Note: 1. IPF stands for Boblingen,Germany. ZOO for Ljubljana, Slovenia 

2. VM stands for VM. VS stands for VSE. 

3. 4 as the last character means that the 3174 communication controller was used. 

4. S stands for symbolic destination name 

5. TPN1 (VSE - ceda i tran(tpnl). SQLVMDBO (VM - IUCV res. id.) 

6. PU ipfcp20e (d net,id—ipfclOeO alslist = ipfcp20e) 
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Open Configuration 


Either type in a name and description to create a new 
configuration or select a configuration from the list below. 
Select OK when finished. 


Description 



Directory D:\CHLIB 

Directories Configurations 



Figure 157. DRDA 3174 Configuration 



Figure 158. Local Node Characteristics 
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Figure 159. Local Node Options 


Connections List 


Choose the type of node to change or create connections 
to nodes of that type. 


Selecting a partner type will display connections to 
nodes of that type 


Partner type- 
•sTo network 


in 

! t 

hi 

S 

(is 

t. 










node 


Link 

Name Adapter 


i; To 


peer node : y To host 


Adapter 

Number 



Figure 160. Connection Definition Panel 1 of 2 
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Connection to a Network Node 



iiUse this network node connection as your preferred server 
$ Solicit SSCP-PU Session 
Optional comment 


VIA 3174 


OK 


Cancel Help 


Figure 161. Connection Definition Panel 2 of 2 



Figure 162. Local LU 
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Figure 163. SNA Features List 



Figure 164. Partner LU - ZPIZ VM SQL/DS 
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Partner LU 



$ Conversation security verification 
Dependent partner LU- 


^Partner LU is dependent 

i J n iSsI a r o r c t e d r, a m a 


Optional comment 


ZPIZ 3174 VSE SQL/DS 


OK : Cancel Help 


Figure 165. Partner LU - ZPIZ VSE SQL/DS 


SNA Features List 


To create, change, or delete a definition of a feature, select a list 
item, then choose the appropriate action. 


SNA feature information- 
Features 


Definition 


Comment 


Local LUs 

ii 

IPFVM1S4 ITS0 3174 VM 


Partner LUs 


IPFVS1S4 ITSO 3174 VS 


Modes 


IPFVM2S4 ITSO 3174 VM 


Transaction program definitio 


Z00VM1S4 ZPIZ 3174 VM 


Transaction program defaults 

Z0QVS1S4 ZPIZ 3174 VS 

Transaction program security 


Conversation security 


LU to LU security 




i/Z _ 

| 

ta _ wrnmmm \iz-wmmm. 



Create... ••..•rmnae... :• veieu? : Close Help 


m 


Figure 166. CPI Communications 
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Figure 167. CPI - ZPIZ VM SQL/DS 



Figure 168. CPI - ZPIZ VSE SQL/DS 
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Figure 169. SNA Management - Logical Links 


n LU 6,2 Sessions 


Session Establish Options Help 


Local Partner 

LU Alias LU Alias 


Partner LU Mode 


Number of 
Sessions 


IPF3174 BOEVMIS2 DEIBMIPF.IPFA2GL4 

IPF3174 Z0OVS317 SIZPIZO0.ZOOCICS4 

IPF3174 ZG0VS317 SIZPIZ00.ZOOCICS4 

IPF3174 VSEANL13 DEIBMIPF.IPFA21 CD 

IPF3174 ZG0VM317 SIZPIZOO.Z0OAVSL1 

IPF3174 ZG0VM317 SIZPIZOO.ZOOAVSL1 

IPF3174 VSEANL13 DEIBMIPF.IPFA21 CD 

IPFCP2GE @1000000 DEIBMIPF.IPFCP200 


IBMRDBM 1 I 

IBMRDB 10 

SNASVCMG 1 

IBMRDBM 2 

IBMRDB 11 

SNASVCMG 1 

SNASVCMG 1 

CPSVCMG 2 


Figure 170. SNA Management - LU 6.2 Sessions 


5.3.3 DB2/2 and DDCS/2 Customization via 3174 Control Unit 

To create DB2/2 and DDCS/2 directories, open DIRECTORY TOOL or use DB2/2 
Command Line. DDCS/2 allows applications running on the workstation to 
access host data. Customization is very similar to that described in the previous 
section. Below are panels of the DB2/2 directory from the ZPIZ side. 
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gffrDbtabase Connection Services Directory Details View 


KDiroiiti' u • nr n viiov -Mn 

ill 



DB2 




Database 

Target 

Application j Parameters 

Comment 


Database 

Requester 


i|| 

ww 

"W 


SQLDS 

SOLDS 

I E:\SQLLIB\MAP\DCS1ARI.MAP 

Database na VSL/LSA 

S0LVMDB6 

SQLVMDBO 

i E:\SQLLIB\MAP\DCS1ARI.MAP 

SOL/DS VM in Boeblinyen 

SQLVSDB1 

SQLVSDB1 

; E:\SQLLIB\MAP\DCS1ARI.MAP 

5()l /PS VSI in lioehlinyen 



»t 

> 



Figure 171. Database Connection Services Directory - ZPIZ 


Node Directory - Details View 


Directory entry View Help 


!>:V 


Node 

instance 

Protocol 

Network 

ID 

Partner 

Logical 

Unit 

Local 

Logical 

Unit 

Alias 

Partner 

Logical 

Unit 

Alias 

T ransmission 
Service 

Mode 

Symbolic 

Destination 

Name 

VMMODE 

VSENODE 


APPC 

APPC 

* 





^BOBaCS^^ 

VM1.-VA7S 

V M l l‘il: 











Figure 172. Node Directory - ZPIZ 
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Directory entry View Help 


Details View: 




iiiiH 

DB2 

Alias 

Type 

Database 

Location 

Authentication 

Comment \ 

•SAMPtf:- 

T .'tKtirit : -: :■ 

tSAMfefc:-::-::-::-: 

Wi 


mmmmmmmmmmmmdv 

SOLDBA 

Remote 

SOLDBA 

VMNODE 

Client 

Database na VM/ESA SQL/DS u 

SQLDS 

Remote 

SQLDS 

VSEMODE 

DCS 

Database na VSE/ESA SQL/DS-u 

SQLVMDB0 

Remote 

SQLVMDB0 

BOBVM 

DCS 

SQL/DS VM in Boeblingen ||: 

S0LVSDB1 

Remote 

S0LVSDB1 

BOBVSE 

DCS 

SOL/DS VSE in Boeblingen || 


Figure 173. System Database Directory - ZPtZ 


Table 12. Database Directory Entries for ITSO and ZPIZ Environment via 3174 


ITSO Boblingen 

ZPIZ Ljubljana 


SQL/DS VSE 

SQL/DS VM 

SQL/DS VSE 

SQL/DS VM 

Database Directory 

Database alias 

IPFVS1A4 

IPFVM1A4 

Z00VS1A4 

Z00VM1A4 

Database name 

IPFVS1D4 

IPFVM1D4 

Z00VS1D4 

Z00VM1D4 

Node name 

IPFVS1N4 

IPFVM1N4 

Z00VS1N4 

Z00VM1N4 

Authentication 

DCS 

DCS 

DCS 

DCS 

DCS Database Directory 

local Database 

IPFVS1D4 

IPFVM1D4 

Z00VS1D4 

Z00VM1D4 

Target Database 

SQLVSDB1 

SQLVMDBO 

SQLDS 

SQLDBA 

Node Directory 

Node name 

IPFVS1N4 

IPFVM1N4 

Z00VS1N4 

Z00VM1N4 

Protocol 

APPC 

APPC 

APPC 

APPC 

Symb.dest.name 

IPFVS1S4 

IPFVM1S4 

Z00VS1S4 

Z00VM1S4 

Security 

Program 

Program 

Program 

Program 

Note: 1. IPF - Boblingen,Germany, ZOO for Ljubljana, Slovenia. 



2. VM - for VM, VS for VSE. 




3. 4 - 3174 communication controller 

was used. 



5. S - Symbolic Destination Name (DCS). 



6. N - Node Name. 




7. D - Database Name. 
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5.3.4 CCSID Translation Tables for PS/2 (LI) <----> HOST (L2) 

In DB2/2 there is no way to add additional CCSIDs or conversation tables, so the 
users are limited to the conversion tables which come with the product. Lately, 
there is enormous pressure to connect to and access different code pages. If the 
clients in a DRDA environment want to connect within the so-called Latin-1 group 
there is no problem. However, it is not possible to be connected on a PS 
platform with LI code page to a host where SQL/DS is running L2 (870 CP). To 
activate the PS (LI CP 850) connection to the host (L2 870), the following steps 
have been undertaken: 

1. The Toronto Lab delivered us a "patch" DB2SYS.DLL which was installed into 
E:\SQLLIB\DLL\. The code page translation was now enabled, which was not 
the case in DB2/2 V2.1. CCSID pair 850 (LI ASCII) and 870 (L2 EBCDIC) is 
now in use. 

2. The SYSTEM.SYSSTRINGS table has been updated. A new pair of translation 
tables has been inserted. Also note that before you insert new records in a 
system table from a remote system, make sure that SQL/DS is initiated with 
the private protocol SQLDS, so that conversion is not enabled. 

Let us test DB2/2 client's connection to SQL/DS on VM/ESA or VSE/ESA. The 
following CCSID (CP/CS) pair is now enabled: 

CCSID 850 (LI ASCII) <.> (L2 EBCDIC MULTILINGUAL) 


| ITSO Boblingen Setup 

CONFIG.SYS .COUNTRY=001 

KEYBOARD=US 
CODEPAGE=437,850 

e:\sqllUo\db2 terminate 
e:\sqllib\chcp 850 
e:\sqlllb\set db2codepage=850 

e:\sqlltb\db2 connect to z00vmla4 user zOOvmul using xxxxxx 

Database Connection Information 

Database product = SQL/DS VM 3.5.0 
SQL authorization ID = Z00VMU1 
Local database alias = Z00VM1A4 

I_ End of ITSO Boblingen Setup _ 
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ZPIZ Setup 


SQLSTART DB(SQLDBA) PROTOCOL(DRDA) CHARNAME(870) 

SQLINIT DB(SQLDBA) PROTOCOL(870) 

If you start this type of connection in this specific environment DB2/2 V2.1 
will reply 

SQL30073. "119C" Parameter value "" is not supported. SQLSTATE=58017 
The CCSD (CP/CS) 870 <. > 437 is not supported 

SQL0332N. There is no available conversion for the source code page "870" 
to the target code page "437". Reason Code "1". SQLSTATE=5701 7 

_ End of ZPIZ Setup _ 
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Chapter 6. AIX Implementation 


6.1 Overview 

6.1.1 Our Environment 

From the AIX workstation we want to access data in SQL/DS on VM and VSE. 
The workstation is located in ITSO Boblingen, Germany. SQL/DS on VM and 
VSE are located both in ITSO Boblingen, Germany, and at the customer site in 
Ljubljana, Slovenia. We use the 3174 communication controller to establish the 
connectivity between the workstation and both VM and VSE in Boblingen and 
Ljubljana. On the AIX workstation we have installed DB2 for AIX V.2.1 and 
DDCS/6000 V 2.3. The communication manager used is SNA Server/6000 V2.1. 
Everything is running on operation system AIX 3.2.5 Enhancement 5. This AIX 
workstation is called ITSOI. 

6.1.2 Entries to Database Directories on Workstation ITSOI 

To make the database servers on VM and VSE known to DB2 for AIX on ITSOI 
we have to put the following information into the database directories of DB2 for 
AIX. Later on we will discuss this in more detail. 


Table 13. Database Directory Entries on ITSOI for the DRDA Servers 


ITSO Boblingen 

ZPIZ Ljubljana 


SQL/DS VSE 

SQL/DS VM 

SQL/DS VSE 

SQL/DS VM 

Database Directory 

Database alias 

IPFVS1A4 

IPFVM1A4 

Z00VS1A4 

Z00VM1A4 

Database name 

IPFVS1D4 

IPFVM1D4 

Z00VS1D4 

Z00VM1D4 

Node name 

IPFVS1N4 

IPFVM1N4 

Z00VS1N4 

Z00VM1N4 

Authentication 

DCS 

DCS 

DCS 

DCS 

DCS Database Directory 

Local Database 

IPFVS1D4 

IPFVM1D4 

Z00VS1D4 

Z00VM1D4 

Target Database 

SQLVSDB1 

SQLVMDBO 

SQLDS 

SQLDBA 

Node Directory 

Node name 

IPFVS1N4 

IPFVM1N4 

Z00VS1N4 

Z00VM1N4 

Protocol 

APPC 

APPC 

APPC 

APPC 

Symb.dest.name 

IPFVS1S4 

IPFVM1S4 

Z00VS1S4 

Z00VM1S4 

Security 

Program 

Program 

Program 

Program 

Note: 1. IPF stands for Boblingen, Germany. ZOO for Ljubljana,Slovenia. 

2. VM stands for VM. VS stands for VSE. 

3. 4 as the last character means that the 3174 communication controller was used. 

4. A - Alias, D - Database, N - Node, S - Symb. Destination Name 

5. Symb.dest.name is identical to Side Information Profile name 


© Copyright IBM Corp. 1996 
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6.1.3 Entries to SNA Profiles on Workstation ITSOI 

Our database connectivity between DB2 for AIX and SQL/DS is based on DRDA. 
DRDA uses SNA Server/6000 as communication manager. To configure the 
communication we have to define some SNA profiles. Later we will discuss this 
in more detail. 


Table 14. SNA Profile Entries on ITSOI for the DRDA Servers 


ITSO Boblingen 

ZPIZ Ljubljana 


SQL/DS VSE 

SQL/DS VM 

SQL/DS VSE 

SQL/DS VM 

Side Information Profile 

Current profile 

name 

IPFVS1S4 

IPFVM1S4 

Z00VS1S4 

Z00VM1S4 

Local LU or CP 

alias 

IPF3174 

IPF3174 

IPF3174 

IPF3174 

Fully qualified 
partner LU name 

DEIBMIPF. 

IPFA21 CD 

DEIBMIPF. 

IPFA2GL4 

SIZPIZ00. 

Z00CICS4 

SIZPIZ00. 

Z00AVSL1 

Mode name 

IBMRDBM 

IBMRDBM 

IBMRDB 

IBMRDB 

RPTN 

TPN1 

SQLVMDBO 

TPN1 

SQLDBA 

Partner LU 6.2 Location Profile 

Profile name 

IPFVS4 

IPFVM4 

Z00VS4 

Z00VM4 

Fully qualified 
partner LU name 

DEIBMIPF. 

IPFA21 CD 

DEIBMIPF. 

IPFA2GL4 

SIZPIZ00. 

Z00CICS4 

SIZPIZ. Z00AVSL1 

Partn.LU location 

method 

link_station 

link_station 

link_station 

link_station 

Local LU name 

IPFBOEDJ 

IPFBOEDJ 

IPFBOEDJ 

IPFBOEDJ 

Link Station Profile 

name 

IPFL3174 

IPFL3174 

Z00L3174 

Z00L3174 

Note: 1. IPF stands for Boblingen, Germany. ZOO for Ljubljana,Slovenia. 

2. VM stands for VM. VS stands for VSE. 

3. 4 as the last character means that the 3174 communication controller was used. 

4. A - Alias, D - Database, N - Node, S - Symb. Destination Name 

5. Symb.dest.name is identical to Side Information Profile name 

6. To get the right RPTN names ask SQL/DS administrator. 


Table 15 and Table 16 on page 151 give you the SNA Global Information and the 
Local LU Profile definitions of the ITSOI workstation. 


Table 15. SNA Global Information on ITSOI 

SNA Global Information 


Control point (CP) name 

DEIBMIPF. IPFP221B 

CP alias 

IPFP221 B 

Node ID (for XID) 

X'05DE001B' 

Node type 

End node (EN) 


150 Multi-Language Solutions 
































Table 16. Local LU Profile on ITSOI 

6.2 Local LU Profile 

Current profile name 

IPF3174 

Local LU name 

IPFBOEDJ 

Local LU alias 

IPF3174 


6.1.4 Considerations for DRDA AS SQL/DS on VSE 

If you connect to SQL/DS on VSE through DRDA be aware that on the VSE side a 
CICS transaction is invoked to handle the DRDA request. Therefore, some 
definitions must be added to the CICS environment on VSE to make the 
workstation known to CICS and enable it to submit the transaction. 

See 4.1.1, “CICS/VSE Setup” on page 84 for more information. 

6.1.5 VTAM Considerations 

Check also the VTAM definitions for the RISC/6000 workstation. These are 
similar to those for the PS/2. See Appendix A, “System Tables and Sample 
Programs” on page 191 for more information. 


6.2 Connectivity 
6.2.1 Overview 

From our workstation we want to have a transparent access to data located in 
SQL/DS on VM and VSE. Therefore, we use the DRDA application requester 
functionality (DRDA AR) of DDCS/6000. The workstation on which DDCS is 
installed is called the DDCS workstation. The DRDA AR will handle the 
connectivity and data transfer to and from the DRDA application server (AS). The 
DRDA AS can be accessed by local clients on the DDCS workstation and by 
remote clients. For remote clients the DDCS workstation acts as a multi-user 
gateway between the client workstation and the DRDA AS database 
management system. Because DRDA connectivity is based on APPC LU 6.2 
connectivity, we use SNA Server/6000 as a communication manager. To make 
that connectivity work we have to define some SNA profiles. In this part these 
profiles and the used parameter values are shown. 
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6.2.2 SNA Profiles Relationship 

In the following figure you can see which profiles we have to configure and how 
these profiles work together. 



6.2.3 Configuring the System 

For our connection in Boblingen we used one Token-Ring Adapter attached to a 
LAN and connected to a 3174 communication controller. 

6.2.3.1 Token-Ring Adapter 

Before configuring the SNA profiles you must verify that the Token-Ring Adapter 
is configured correctly. To do so invoke SMIT and select the following items: 

1. Devices 

2. Communications 

3. Token-Ring Adapter 
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4. Adapter 

5. Change / Show Characteristics of a Token-Ring Adapter 


Token-Ring Adapter 
Description 
Status 
Location 

Receive data transfer OFFSET 
TRANSMIT queue size 
RECEIVE queue size 
STATUS BLOCK queue size 
RING speed 

Receive ATTENTION MAC frame 
Receive BEACON MAC frame 
Enable ALTERNATE TOKEN RING address 
ALTERNATE TOKEN RING address 
Apply change to DATABASE only 

Figure 175. Show Characteristics of a Token-Ring Adapter 

Note: Ensure that Status is set to Available and that the RING speed 
corresponds to the speed in your LAN. 

6.2.3.2 Data Link Control 

SNA Server/6000 requires that you supply information about Data Link Control 
(DLC) characteristics in the SNA DLC Profile. Therefore, you must have DLC 
configured and available. DLC is a set of communication protocols that supports 
orderly exchanges of data over a link. Basically, the DLC manages a 
communications adapter. Before the system can use an installed DLC, you must 
first add the desired DLC manager. In our case the desired DLC manager is 
dlctoken because we are using a Token-Ring Adapter. If this step has been 
done you can check if the DLC manager is available by issuing the following 
command: Isdev -Cc die. As a result you will receive the message: 


| dlctoken Available Token-Ring Data Link Control 

Figure 176. Received Message for DLC Manager 

6.2.3.3 Configuring SNA Profiles 

All the SNA profiles are configured using the advanced configuration. To do so 
invoke SMIT and select the following items: 

1. Communications Applications and Services 

2. SNA Server/6000 

3. Configure SNA Profiles 

4. Advanced Configuration 


tEntry Fieldst 
tokO 

Token-Ring High-Performance 
Available 
00-05 
92 
30 
30 
10 
16 
no 
no 
yes 

0x40001010101b 

no 
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6.2.3.4 Token-Ring Link Station Profile 


tEntry Fieldst 


Current profile name IPFL3174 

New profile name 

Use Control Point^s XID node ID? yes 

If no, XID node ID * 

SNA DLC Profile name tokO.00001 

Stop link station on inactivity? no 

If yes, Inactivity time-out (0-10 minutes) 0 

LU address registration? no 

If yes, 

LU Address Registration Profile name 
Trace link? no 

If yes. Trace size long 


Adjacent Node Address Parameters 
Access routing 

If link_name, Remote link name 
If link_address. 

Remote link address 
Remote SAP address (02-fa) 


link_address 


400020201001 

04 


Adjacent Node Identification Parameters 

Verify adjacent node? no 

Network ID of adjacent node DEIBMIPF 

CP name of adjacent node 

XID node ID of adjacent node (LEN node only) * 

Node type of adjacent node learn 

Link Activation Parameters 

Solicit SSCP sessions? yes 

Initiate call when link station is activated? yes 
Activate link station at SNA start up? yes 

Activate on demand? no 

CP-CP sessions supported? yes 

If yes. 

Adjacent network node preferred server? no 

Partner required to support CP-CP sessions? no 

Initial TG number (0-20) 0 


Restart Parameters 

Restart on activation? no 
Restart on normal deactivation? no 
Restart on abnormal deactivation? no 


Transmission Group COS Characteristics 


Effective capacity 15974400 

Cost per connect time 0 

Cost per byte 0 

Security nonsecure 

Propagation delay lan 

User-defined 1 128 

User-defined 2 128 

User-defined 3 128 


Figure 177. Show Token-Ring Link Station Profile 

The first SNA profile we configure is the Token-Ring Link Station. This profile 
associates the link station with either the CP for APPN services or a 
user-specified PU. It also associates the link station with an SNA DLC Profile, 
which defines the hardware adapter and DLC characteristics of the link. 
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To configure the Token-Ring Link Station invoke SMIT, go to step 4 of 6.2.3.3, 
“Configuring SNA Profiles” on page 153 (Advanced Configuration of SNA 
profiles) and select the items: 

5. Links 

6. Token-Ring 

7. Token-Ring Link Station 

Following is a brief explanation of the most relevant parameters in Figure 177 on 
page 154: 

Use Control Point's XID node ID? 

Select one of the following values: 

• yes. Associates the link station with the XID node ID of the 
APPN CP. Selecting this value places the link station under the 
control of the APPN CP, with full APPN support. 

• no. Excludes the link station from the control of the APPN CP 
and places it under the control of a PU you designate. If you 
select this value, you must specify the XID node ID of the PU 
represented by this link station. Specifying link stations with 
unique XID node ID values enables SNA Server/6000 V2.1 to 
support dependent LU traffic with multiple hosts. 

XID node ID 

Enter a hexadecimal value that identifies the PU that controls this 
link station. The system default value is an asterisk (*), which 
represents an XID value of 00000000. This indicates that no XID node 
ID is specified. 

LU address registration? 

If the value you select is yes, generic LU addresses are registered to 
this link station. Select this value only if this link station is used for 
generic SNA sessions. You also must create a Generic LU Address 
Registration Profile containing the registered LUs. Enter the name 
of the registration profile in the LU Address Registration Profile name 
field for this link station. If you select no, you are not using generic 
LU address registration and do not require a generic LU address 
registration profile for this link station. 

Remote link address 

For a call or selective listen link station, enter the network address 
of the remote station. The network address must be unique to the 
specific adapter card of the remote station. If you enter link address 
in the Access routing field but do not enter a remote link address, 
the link station is a nonselectlve listen link station, that is, it accepts 
a link activation request from any remote station, but it can handle 
only one link at a time. 

Network ID of adjacent node 

Enter the network ID of the adjacent node. If the adjacent node does 
not supply a CP name in XID exchanges, you must enter a value in 
this field and define an LU 6.2 Partner Location Profile to define the 
adjacent node resources. 
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6.2.3.5 Control Point Profile 

The Control Point Profile describes the characteristics of the CP on the local 
RISC System/6000. A RISC System/6000 workstation must have one (and only 
one) Control Point Profile. To configure this profile invoke SMIT, go to step 4 of 
6.2.3.3, “Configuring SNA Profiles” on page 153 (Advanced Configuration of SNA 
profiles) and select the item: 

5.Control Point 

The following information is shown within this profile: 


Profile name 

XID node ID 

Network name 

Control Point (CP) name 

Control Point alias 

Control Point type 

Maximum number of cached routing trees 
Maximum number of nodes in the TRS database 
Route addition resistance 
Comments 


/Entry Fields/ 
node_cp 
05de001b 
DEIBMIPF 
IPFP221B 
IPFP221B 
appn_end_node 
500 
500 
128 


Figure 178. Show Control Point Profile 

Following is a brief explanation of the most relevant parameters in Figure 178: 

Profile name 

This field displays the name of the Control Point Profile, node_cp. 
The system uses the profile name to refer to the set of 
characteristics that you describe in the profile. You must have one 
(and only one) Control Point Profile in SNA Server/6000 V2.1; you 
cannot change its name. 

XID node ID 

Enter a value that the CP on the local system can use to identify 
itself as a PU. This value is used only for switched links 
(Token-Ring, Ethernet, X.25, and switched SDLC). Enter one of the 
following values: 

• For a peer network using independent LU 6.2, use the default 
wildcard value, (*). 

• For dependent communication with a host system, specify a 
unique XID node ID. This value must uniquely identify the local 
node in the subarea network. 

The XID node ID has two parts: 

Block Number 

The first three hexadecimal digits provide an identifier, or block 
number, that is unique to each product on the network. The value of 
071 identifies the local node as a RISC System/6000 workstation. If 
you are connecting to a VTAM host, the block number you specify 
must match the IDBLK parameter value in the VTAM PU definition 
macro. 
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ID number The last five digits distinguish a specific piece of equipment from all 
other similar pieces of equipment on the network. If you are 
connecting to a VTAM host, the ID number is the IDNUM parameter 
value in the VTAM PU definition macro. 

Network name 

Enter the network name of the CP. The network name distinguishes 
this network from other networks to which it can be connected. The 
network name, combined with the CP name, forms a unique 
identifier (the fully qualified name) for this CP. 

Control Point name 

The Control Point (CP) name distinguishes this CP from other CPs 
that may be connected to the network. This name, combined with the 
network name, forms a unique identifier (fully qualified name) for 
this CP. 

Control Point alias 

Enter an alias that can be used on the local system in place of the 
CP name. Using an alias for the control point enables you to change 
the CP name without having to update all LU 6.2 Side Information 
Profiles that refer to the CP. 

Control Point type 

Select one of the following values: 

• appn_network_node The CP provides NN services. 

• appn_end_node The CP provides APPN EN services. If you do 
not provide APPN services, choose appn_end_node as your CP 
type. 

6.2.3.6 LU 6.2 Local LU Profile 

To configure this profile invoke SMIT, go to step 4 of 6.2.3.3, “Configuring SNA 
Profiles” on page 153 (Advanced Configuration of SNA profiles) and select the 
items: 

5. Sessions 

6. LU 6.2 

7. LU 6.2 Local LU 


Current profile name 
New profile name 
Local LU name 
Local LU alias 
Local LU is dependent? 

If yes. 

Local LU address (1-255) 

System services control point 
(SSCP) ID (*, 0-65535) 

Link Station Profile name 
Conversation Security Access List Profile name 
Comments 


tEntry Fields! 
IPF3174 

IPFBOEDJ 

IPF3174 

no 


•k 


LU used for 3174 


Figure 179. Show LU 6.2 Local LU Profile 

Following is a brief explanation of the most relevant parameters in Figure 179: 
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Profile name 

Enter a name for the new LU 6.2 Local LU profile in this field. 

Local LU name 

Enter the name of the local LU in this field. This LU name must be 
unique with respect to all other local LUs defined on this node, and 
its fully qualified local LU name must be unique across the network. 
SNA Server/6000 V2.1 generates the fully qualified LU name by 
concatenating this LU name to the network name defined in the 
Control Point profile (DEIBMIPF.IPFBOEDJ). 

Local LU alias 

Enter an alias for the local LU. This alias can be used in an LU 6.2 
Side Information Profile or with the sna command to refer to this 
local LU. 

Local LU is dependent? 

Select one of the following values to specify whether the LU 6.2 is 
dependent or independent: 

• yes The local LU 6.2 is dependent, and cannot initiate LU to LU 
sessions. A host SSCP controls session activation. 

• no The local LU 6.2 is independent, and sessions can be 
activated without SSCP. 

Local LU address 

If the local LU is dependent, enter the local LU address in this field. 
The value you enter must match the value specified for the 
LOCADDR parameter in the VTAM/NCP LU resource definition 
statement. 

SSCP ID This field specifies the ID of the SSCP that controls this dependent 
LU in the subarea network. This identifier is defined on the host 
system to which this node is connected and is used for host 
verification. 

Link Station Profile name 

Select the name of the Link Station Profile shown in Figure 177 on 
page 154 that describes the characteristics of the link station used 
for sessions with the remote LU. 

Conversation Security Access List Profile name 

Enter the name of an LU 6.2 Conversation Security Access List 
profile. This profile specifies a set of user names with permission to 
remotely allocate a session with this local LU. If the user name is a 
valid AIX user, you do not have to configure a Conversation Security 
Access List profile. 

6.2.3.7 LU 6.2 Partner Location Profile 

To configure this profile invoke SMIT, go to step 4 of 6.2.3.3, “Configuring SNA 
Profiles” on page 153 (Advanced Configuration of SNA profiles) and select the 
items: 

5. Sessions 

6. LU 6.2 

7. Partner LU 6.2 Location 
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tEntry Fieldst 


Current profile name 
New profile name 
Fully qualified partner LU name 
Partner LU location method 
If owning_cp. 

Fully qualified owning Control Point (CP) name 
Local node is network server for LEN node? 
Fully qualified network node server name 
If link_station. 

Local LU name 
Link Station Profile name 
Comments 


IPFVM4 

DEIBMIPF.IPFA2GL4 
link_station 


no 


IPFBOEDJ 

IPFL3174 


Figure 180. Show Partner LU 6.2 Location Profile 

Following is an explanation of the most relevant parameters described in 
Figure 180: 

• Partner LU location method 

Two methods are used to support your partner LU 6.2: 

- owning_cp 

Specified when the partner LU is located by first finding the CP in the 
network specified by the name given in the Fully qualified owning 
Control Point (CP) name field. APPN directory and routing services first 
locate the CP in the network. Once the CP is located, the BIND is 
forwarded to the partner LU on the CP over the link on which it was 
found. 

- I i n kstati o n 

Specified when the partner LU is assumed to be located on the other 
side of the link identified by the Link Station profile name specified in the 
Link Station Profile name field. In this case, APPN directory and routing 
services are completely bypassed; the BIND is immediately sent across 
the specified link in anticipation of the partner LU being available on the 
opposite side of the link. 

Note that the entry in the If link_station field is valid only if the local 
node type specified in the Control Point profile is appn_end_node. APPN 
network nodes cannot statically associate a partner LU's location with a 
particular link. 

• Local LU name 

Provides the name of the local LU to be matched with the partner LU name 
specified in the Fully qualified partner LU name field to identify which 
session is to use the link specified in the Link Station Profile name field. 
This value is valid only when the Partner LU location method is iink_station. 

• Link Station Profile name 

Provides the name of the Link Station profile which specifies the link over 
which the session identified by the Fully qualified partner LU name and 
Local LU name fields is to activate. This value is valid only when the Partner 
LU location method is linkstation. 
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For the other Partner LU 6.2 Location profiles we defined refer to B.1.6, “Partner 
LU 6.2 Location” on page 232. 


6.2.3.8 LU 6.2 Mode 

To configure this profile invoke SMIT, go to step 4 of 6.2.3.3, “Configuring SNA 
Profiles” on page 153 (Advanced Configuration of SNA profiles) and select the 
items: 


5. Sessions 

6. LU 6.2 

7. LU 6.2 Mode 


tEntry Fieldst 


Current profile name IBMRDBM 

New profile name 

Mode name IBMRDBM 

Maximum number of sessions (1-5000) 60 

Minimum contention winners (0-5000) 30 

Minimum contention losers (0-5000) 30 

Auto activate limit (0-500) 0 

Upper bound for adaptive receive pacing window 16 

Receive pacing window (0-63) 3 

Maximum RU size (128, 32768: multiples of 32) 4096 

Minimum RU size (128,32768: multiples of 32) 1024 

Class of Service (COS) name #CONNECT 

Comments 


Figure 181. Show LU 6.2 Mode Profile 

Following is an explanation of the most relevant parameters in Figure 181: 

• Profile name Enter the name of the new Mode profile. The system uses the 
profile name to refer to the set of characteristics that you describe in the 
Mode profile. 

• Mode name Enter the SNA mode name in this field. The SNA network uses 
this mode name to identify the set of session parameters associated with the 
mode. 

• Maximum number of sessions Enter a value to specify the maximum number 
of parallel sessions allowed between a local and partner LU using this mode. 
If the partner LU supports fewer parallel sessions on this mode, the value 
entered here can be negotiated downward. 

• Minimum contention winners This field defines the minimum number of 
contention winner sessions that must be reserved for sessions established 
by the local LU with a partner LU. 

• Minimum contention losers This field specifies the minimum number of 
contention loser sessions that must be reserved for sessions established by 
the local LU with a partner LU. In conjunction with the Minimum contention 
winners field, this field determines how to resolve contention for a session. 

• Receive pacing window Enter the number of request units (RUs) that the 
local LU can receive before it must send a pacing response to the remote 
LU. 

• Maximum RU size This field specifies the maximum number of bytes in each 
request and response unit that are sent and received in sessions using this 
mode. 
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• Minimum RU size The value in this field defines the minimum size for RUs 

that can be sent and received in sessions using this mode. 

• Class of Service (COS) name Enter the class of service (COS) name to 

specify transmission group characteristics for the mode. You can use an 

IBM-supplied COS or your own. 

SNA Server/6000 V2.1 includes the following IBM-supplied COS definitions: 

- #BATCH Specifies a standard, nonsecure COS with medium transmission 
priority for batch sessions. 

- #CONNECT Specifies a standard, nonsecure COS with medium 
transmission priority. 

- #CPSVCMG Specifies a COS used for establishing CP-CP sessions 
between two NNs, between two ENs, or between an EN and its NN server 
in an APPN network. 

- #INTER Specifies a standard, nonsecure COS with high transmission 
priority for interactive sessions. 

- #INTERSC Specifies a secure COS with high transmission priority for 
interactive sessions. 

- SNASVCMG Specifies a COS used for negotiating session limits for LU 
6.2 independent sessions. 

For the other LU 6.2 Mode profiles we defined refer to B.1.7, “LU 6.2 Mode” on 
page 234. 

6.2.3.9 LU 6.2 Side Information Profile 

To configure this profile invoke SMIT, go to step 4 of 6.2.3.3, “Configuring SNA 
Profiles” on page 153 (Advanced Configuration of SNA profiles) and select the 
items: 

5. Sessions 

6. LU 6.2 

7. LU 6.2 Side Information 


Current profile name 
New profile name 
Local LU or Control Point alias 
Provide only one of the following: 
Partner LU alias 
Fully qualified partner LU name 
Mode name 

Remote transaction program name (RTPN) 
RTPN in hexadecimal? 

Comments 


tEntry Fieldst 


IPFVM1S4 

IPF3174 


DEIBMIPF.IPFA2GL4 
IBMRDBM 
SQLVMDBO 
no 


Figure 182. Show LU 6.2 Side Information Profile 

Following is an explanation of the most relevant parameters in Figure 182: 

• Profile name Enter a name for the new Side Information profile. A local TP 
can specify this name in the OPEN call to identify a set of session 
parameters. The session parameters include the local LU, partner LU, 
mode, and remote TP names. 
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• Local LU or Control Point alias Enter the alias of either the local LU or node 
CP that identifies the local LU for any conversations initiated by TPs using 
this Side Information profile. If you enter an alias, it must match the alias 
defined in either the Control Point profile or the LU 6.2 Local LU profile. If 
you do not enter a value in this field, the node CP serves as the local LU for 
the Side Information profile. 

• Partner LU alias Enter or select an alias for the partner LU that specifies the 
default partner LU for conversations initiated by TPs using this Side 
Information profile. The TP can override this value. If you enter an alias in 
this field, you must enter the same alias in the Partner LU alias field of the 
Partner LU profile. 

• Fully qualified partner LU name Enter a fully qualified partner LU name 
similar to that shown in Figure 182 on page 161. It consists of two parts, 
network_name.iu_name (DEIBMIPF.IPFA2GL4). 

• Mode name Enter or select the name of the mode that specifies the default 
mode name for conversations initiated by local TPs that use this Side 
Information profile. Keep in mind that the mode name entered here must 
correspond to a mode name entered in the LU 6.2 Mode profile. The same 
mode name must be available to the partner LU. 

• Remote transaction program name (RTPN) To specify a default TPN for all 
TPs that use this Side Information profile, enter the TPN to be invoked on the 
remote system. 

• RTPN in hexadecimal? Select one of the following values: 

- yes. The value entered in the Remote transaction program name (RTPN) 

field is hexadecimal format. 

- no. The value entered in the Remote transaction program name (RTPN) field 
is ASCII format. 

For the other LU 6.2 Side Information profiles we defined refer to B.1.8, “LU 6.2 

Side Information Profile” on page 235. 

6.2.3.10 Verifying SNA Profiles 

After entering or changing values of these SNA profiles you must verify them by 

invoking SMIT and selecting Verify Configuration Profiles. 

You should get a screen similar to that shown in Figure 183 on page 163. 
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Verify Configuration Profiles 


Type or select values in entry fields. 

Press Enter AFTER making all desired changes. 


(Entry Fields) 

Update action if verification successful none 

If normal_update or dynamic_update, 

Backup file for committed database () 

Backup security file for committed database () 


Fl=Help 

F5=Reset 

F9=Shell 


F2=Refresh 

F6=Command 

F10=Exit 


F3=Cancel 

F7=Edit 

Enter=Do 


F 4=List 
F8=Image 


Figure 183. Verify Configuration Profiles Screen 

You have the following options for update actions if the verification is successful: 

• none 

Select this option if the verified profiles should remain in the working 
database. To update the committed database with these profiles, run 
verification again and select normal_update or dynamic_update for this field. 

• normal_update 

Select this option to update the committed database only if SNA Server/6000 
V2.1 is not running. If all profiles are successfully verified, SNA Server/6000 
V2.1 promotes them to the committed database. If any errors are found 
during verification, the new profiles remain in the working database, and you 
must correct the errors and run verification again to update the committed 
database. 

• dynamic_update 

Select this option to update the committed database while SNA Server/6000 
V2.1 is running. If all profiles are successfully verified, SNA Server/6000 V2.1 
promotes them to the committed database. If SNA Server/6000 V2.1 is not 
actually running, this option still updates the committed database if 
verification is successful. If any errors are found during verification, the new 
profiles remain in the working database, and you must correct them and run 
verification again to update the committed database. 

6.2.3.11 Testing the Connections 

Once verification has successfully completed and the committed database has 
been updated, proceed to start the SNA Server/6000 V2.1 using SMIT or the 
command line. 

To use SMIT type the following command: 

smit sna 

and select the following items: 

1. Manage SNA Resources 

2. Start SNA Resources 

3. Start SNA 

From the AIX prompt issue the following command: 
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/usr/bin/sna -start 

This command automatically starts SNA Server/6000 V2.1, link stations, and LU 
6.2 sessions. You can check that the SNA Server/6000 V2.1 started correctly by 
issuing the following command: 

lssrc -ssna 

Test whether you can establish an LU-to-LU session. Although the session 
establishment is done automatically when you issue the DB2 CONNECT 
statement, verify it before issuing the first CONNECT statement. If a session 
cannot be established, the DB2 CONNECT statement will fail. 

To establish an LU-to-LU session, invoke SMIT, issue the following command: 

smit sna 

and select the following items: 

1. Manage SNA Resources 

2. Start SNA Resources 

3. Start an SNA Session 

You should get a screen similar to that shown in Figure 184. 


Start an SNA Session 

Type or select values in entry fields. 

Press Enter AFTER making all desired changes. 


Specify one of the following: 

Local LU name 
Local LU alias 

Specify one of the following: 

Fully qualified partner LU name 
Partner LU alias 

Mode name 

Session type 


Fl=Help F2=Refresh 
F5=Reset F6=Command 
F9=Shell F10=Exit 


(Entry Fields) 

(IPFBOED J) 
0 


(DEIBMIPF.IPFA2GL4) 
0 

(IBMRDBM) 

conwinner 


F3=Cancel F4=List 

F7=Edit F8=Image 

Enter=Do 


Figure 184. Start an SNA Session Screen 

On the Start an SNA Session screen specify the values you specified when 
configuring the LU 6.2 Side Information profile. 

If the establishment of the session is successful, you receive a message similar 
to the following: 
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COMMAND STATUS 


Command: OK stdout: yes stderr: no 

Before command completion, additional instructions may appear below. 

Session started: Session ID = EF178F5683653894, Conversation group ID =3 


Fl=Help F2=Refresh F3=Cancel F6=Command 

F8=Image F9=Shell F10=Exit 


6.3 Database 
6.3.1 Overview 

The database that a client wants to use has to be known in a database 
management system. Therefore, the database is cataloged in a database 
catalog. In DB2 for AIX we use the Database Directory to catalog all the 
databases to which we want to connect. These databases may be located on the 
same workstation as the database directory or on a remote system. If the 
database is on a remote system we have to specify this in the database 
directory but also in a node directory which gives more information about this 
remote node. If the database on the remote system is accessed through DRDA 
we have to give some information within the DCS directory of DB2 for AIX. 

To connect to a DRDA database server, DDCS requires information in the 
database directories. If you want to add, change, or delete entries in the 
database directories, you must have either SYSADM or SYSCTRL authority. 

You must specify entries in the following directories to enable the DDCS 
workstation to connect to a DRDA AS: 

• System database directory 

• Database connection services (DCS) directory 

• Node directory 


6.3.2 DB2 for AIX System Database Directory 

The system database directory contains an entry for each database that can be 
accessed from a workstation. The directory contains information about whether a 
database is local or remote, the authentication type, the database name, and the 
database alias. When you create a database, it is automatically cataloged in the 
system database directory. On the client you may use the CATALOG DATABASE 
command to explicitly catalog a database in the system database directory. With 
the command db2"list database directory" you will see the entries made to the 
system database directory. 
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System Database Directory 


Number of entries in the directory = 4 

Database 1 entry: 

Database alias 

Database name 

Node name 

Database release level 

Comment 

Directory entry type 

Authentication 

Figure 185. Entry in System Database Directory on ITSOI 

Refer to B.2.1, “DB2 for AIX Database Directory” on page 236 for the other 
entries of the system database directory. 

• Database name is the real name of the remote database. 

• Database alias is the alias you want to use for this database. If you do not 
provide an alias, the default is the same as the database name. To reference 
the cataloged database, you must use the alias. 

• Node name is the name you specified to define the remote node on which 
the database is stored. 

• Directory entry type specifies whether the database is a local or a remote 
database. 

• Authentication determines how and where a user who wants to access the 
database will be verified. If the database is within an instance of a DB2 
Version 2 database server this value is ignored, even though the value 
appears in the database directory. For databases in a DB2 Version 2 
instance the authentication type is the same as for the instance. The 
authentication type is stored in the database manager configuration file on 
the server. It is initially set when the instance is created. For databases in a 
DB2 Version 1, every database can have a different authentication type. Then 
the authentication value specified in the client's system database directory 
must match the database authentication type on the server. The following 
authentication types are provided: 

SERVER forces the authentication on the database server. So the user 

name and password specified during the connection attempt 
are compared to the valid user name and password 
combinations on the server. 

specifies that authentication occurs on the node where the 
application is invoked. The user name and password specified 
during the connection attempt are compared to the valid user 
name and password combinations on the client node. No 
further authentication will take place on the database server. 

specifies how authentication will take place for databases 
accessed using DDCS. The behavior is the same as for 
AUTHENTICATION SERVER. The difference is in how DDCS 
interprets the authentication type. When authentication is 
SERVER, DDCS forces authentication on the DDCS 


CLIENT 


DCS 


= IPFVS1A4 
= IPFVS1D4 
= IPFVS1N4 
= 6.00 

= Remote 
= DCS 
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workstation. When authentication type is DCS, DDCS assumes 
authentication takes place on the DRDA AS. 

See the Installation and Operation Guide or the Installing and Using Clients 
manual for more information. 

6.3.3 DB2 for AIX Database Connection Services Directory 

The DCS directory contains an entry for each DRDA AS that can be accessed 
from the workstation. When the application issues a CONNECT statement 
specifying a remote database using APPC protocol, the database manager 
searches the DCS directory for a matching database name entry. If it finds a 
matching entry, it uses the DRDA protocol for the connection. If it does not find 
a matching entry, it uses the private protocol. To see all DCS databases issue 
the following command: db2"list dcs directory" 


Database Connection Services (DCS) Directory 
Number of entries in the directory = 4 


DCS 1 entry: 

Local database name 
Target database name 
Application requestor name 
DCS parameters 
Comment 

DCS directory release level 


= IPFVS1D4 
= SQLVSDB1 


= 0x0100 


Figure 186. Entry in DCS Directory on ITSOI 

Refer to B.2.2, “DB2 for AIX DCS Directory” on page 237 for the other entries of 
the DCS directory. 

The following is a short description of the parameters: 

• Local database name 

Specifies the DCS database name to catalog. This name must match the 
database name you entered when you cataloged this database in the system 
database directory. 

• Target database name 

Specifies the real name (RDB_NAME) of the target host database to catalog. 

• Application requestor name 

If using the DDCS AR code, you do not have to specify a value for this 
parameter. The default value causes DDCS to be invoked. 

• DCS parameters 

You can specify a parameter string defining SQLCODE mapping, interrupt 
handling, and disconnect events. For further explanation of this string, refer 
to the DDCS User's Guide for Common Servers. 
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You can use CLP to catalog an entry in the DCS directory by issuing the 
following command: 

DB2 catalog dcs database IPFVS1D4 as SQLVSDB1 

6.3.4 DB2 for AIX Node Directory 

You can use CLP to list all entries in the node directory by issuing the following 
command: 

db2 t list node directoryt 

For each node you will get the following information: 


Node Directory 

Number of entries in the directory = 4 


Node 1 entry: 

IPFVS1N4 

APPC 
IPFVS1S4 
PROGRAM 


Node name 

Comment 

Protocol 

Symbolic destination name 
Security type 


Figure 187. Entry in Node Directory on ITSOI 

Refer to B.2.3, “DB2 for AIX Node Directory” on page 238 for the other entries of 
the node directory. 

The following is a short description of the parameters: 

• Node name 

This is an alias that identifies the remote node. It should be a meaningful 
name to make it easier to remember. 

• Protocol 

As we use DRDA, the protocol must be APPC. 

• Symbolic destination name 

This name must correspond to the LU 6.2 Side Information Profile name. It 
contains the necessary information to set up an APPC connection to the 
server (partner LU name, mode name, partner TPN). 

• Security type 

- None 

Specifies that no security information is sent to the partner LU. This 
option is not supported by DRDA. 

- Same 

Specifies a user ID together with an indicator that the user has been 
already verified. Only the user ID is sent to the partner LU. The 
password is not sent to the partner LU. This implementation requires 
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that the partner LU at the AS be configured to accept already verified 
security. 

- Program 

Specifies that a user ID and a password must be included in the 
allocation request sent to the partner LU for authentication. 

You can use CLP to catalog an entry in the node directory by issuing the 
following command: 

db2 tcatalog appc node IPFVS1N4 remote IPEVS1S4 security programt 

You have to catalog one entry in the node directory for each AS to which you 
intend to connect. 


6.4 Security 

Security is implemented by two separate mechanisms: 

• Authentication 

• Internal security 

In a distributed environment, authentication can take place in one or more 
locations, depending on the configuration of the DBMSs and network products. 

The internal security of the DB2 products then rules what the user can do on 
DB2 resources, after the user has been authenticated. 

On the AIX platform, user ID and password information is managed by the 
operating system itself, whereas on the OS/2 platform UPM manages user ID 
and password information. First we discuss the security considerations for a 
DDCS stand-alone workstation. The considerations are also valid if the DDCS 
workstation is a gateway workstation used by a local user. 

Whether your configuration is stand-alone or client/server, the AUTHENTICATION 
parameter in the database manager configuration file applies only for local 
databases. When cataloging a remote database, the value you specify for the 
AUTHENTICATION parameter overrides the value specified in the database 
manager configuration file. 

6.4.1 DDCS for AIX: Stand-alone or Local Users 

When you catalog a database in the system database directory you have three 
options for the AUTHENTICATION parameter value: 

• AUTHENTICATIONS LI ENT 

Essentially the authentication takes place in the client workstation. For a 
local user or a stand-alone configuration, authentication takes place locally. 

• AUTHENTICATIONSERVER 

This value is conceptually the same as AUTHENTICATION=CLIENT; the user 
is authenticated locally. In addition, the authentication process can take 
place in the DRDA AS. We describe these implementations below when we 
explain the SECURITY parameter. 

• AUTHENTIC AT ION = DCS 
Authentication takes place on the DRDA AS. 
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When you catalog the APPC node for the DRDA connection you have two options 
for the SECURITY parameter value: 

• SECURITY=SAME 

A password is not sent to the DRDA AS. 

• SECURITY=PROGRAM 

A password is sent to the DRDA AS. 

If you specify AUTHENTICATION=CLIENT, you have to specify 
SECURITY=SAME. In this case the user ID is authenticated locally, and only the 
user ID is sent to the DRDA AS. If the DRDA AS uses VTAM, the APPL 
statement for the RDBMS must specify SECACPT=ALREADYV. If the DRDA AS is 
DB2 for OS/400, the SEC parameter in the remote configuration list must be set 
to *YES for the LU that represents this DDCS workstation. Refer to the DRDA AS 
security sections for the platform specifics. 

If you specify AUTHENTICATION=SERVER and SECURITY=SAME, the user ID is 
authenticated locally, and only the user ID is sent to the DRDA AS. 

If you specify AUTHENTIC AT ION=SERVER and SECURITY=PROGRAM, the user 
ID is first authenticated locally. If the authentication process is successful, the 
user ID and the password are sent to the DRDA AS, where the user is 
authenticated again. 

If you specify AUTHENTICATION = DCS, the only option you have is 
SECURITY=PROGRAM. The user ID is not authenticated locally; the user ID and 
the password combination are sent to the DRDA AS, where the user is 
authenticated. 

Table 17 summarizes the authentication scheme for a DDCS workstation without 
remote clients. 


Table 17. Security Matrix: DDCS without Remote Clients 

DDCS Workstation 

DRDA AS 

Authentication 

Security 


CLIENT 

SAME 

userid/pwd 

userid 

SERVER 

SAME 

userid/pwd 

userid 

SERVER 

PROGRAM 

userid/pwd 

userid/pwd 

DCS 

PROGRAM 

userid/pwd 

userid/pwd 


The reverse highlighted userid/pwd shows the user ID and password 
combination that is verified and where authentication takes place. 

6.4.2 DDCS for AIX: Remote Client Support 

For remote clients, security in AIX differs slightly from security in OS/2. The 
following three options are available when you catalog a database in the client 
workstation: 

• AUTHENTIC AT ION=CLIENT 

Requires that the database is cataloged with AUTHENTICATION=CLIENT on 
the DDCS gateway as well. However, it is not necessary to define in AIX the 
same user ID as used on the client. 
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• AUTHENTIC ATION=SERVER or DCS 


Whichever of these two options is specified in the client workstation, the user 
ID and password are sent to the DDCS gateway. The security is then 
managed by the AUTHENTICATION type specified at the DDCS gateway 
workstation: 

- AUTHENTICATION = CLIENT This specification is incompatible with the 
type of authentication specified at the client. 

- AUTHENTIC AT ION=SERVER and SECURITY=SAME The user ID and 
password are sent to the DDCS gateway workstation and authenticated 
there. 

- AUTHENTICATION=SERVER and SECURITY=PROGRAM The user ID 
and password are sent to the DDCS gateway workstation, where 
authentication takes place. If successful, the user ID and password are 
routed to the DRDA AS where they are authenticated again. 

- AUTH ENTICATION = DCS and SECURITY=PROGRAM The user ID and 
password are sent to the DDCS gateway workstation and then sent to the 
DRDA AS. Authentication is performed at the DRDA AS only. 

The communications protocol used to connect clients to the DDCS workstation 
has no impact on the authentication scheme. However, as a general guideline, if 
the connection is APPC, we recommended that you use SECURITY=NONE on 
the client (note that SECURITY=NONE cannot be used on the DDCS gateway 
workstation). 

The overall process is not influenced by the AUTHENTICATION parameter set at 
the DDCS database manager instance level, which would have led to less 
granularity in the specification of the security policies to access different DRDA 
ASs. 

For a DDCS workstation serving remote clients, the authentication mechanism 
works in exactly the same way as shown in the following table. 

Table 18 summarizes the authentication scheme for a DDCS workstation serving 
remote clients. Note how we have essentially nested Table 17 on page 170 in a 
broader scenario to account for the clients. 


Table 18. Security Matrix: DDCS with Remote Clients 

Client Workstation 

DDCS Workstation 

DRDA AS 

Auth 


Auth 

Sec 


CLIENT 

userid/pwd 

CLIENT 

SAME 

userid 

userid 

SERVER or 

DCS 

userid/pwd 

SERVER 

SAME 

userid/pwd 

userid 

SERVER or 

DCS 

userid/pwd 

SERVER 

PROGRAM 

userid/pwd 

userid/pwd 

SERVER or 

DCS 

userid/pwd 

DCS 

PROGRAM 

userid/pwd 

userid/pwd 


Authentication takes place wherever userid/pwd is reverse highlighted. 
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6.4.3 User ID and Password Folding 

AIX is a case-sensitive environment, and user IDs and passwords are commonly 
stored in lowercase format. Before a user ID and password can be sent to the 
DRDA AS, they must be folded to uppercase. 

If the SECURITY type specified at the DDCS workstation is SAME, only the user 
ID is sent to the AS. To have the user ID folded to uppercase before it is sent: 

• For local clients, the login user must belong to the AIX system group. If the 
login user issues a CONNECT in the form: 

db2 connect to database user another_user using password 

The user specified in the CONNECT statement does not have to necessarily 
belong to the AIX system group. 

• For remote clients, the DDCS instance owner must belong to the AIX system 
group, otherwise the instance owner user ID, which is not folded to 
uppercase, is sent to the DRDA AS. 

Note that these problems can be circumvented when the DRDA AS is DB2 for 
MVS, because APAR PN70160 provides user ID and password folding on the MVS 
platform before RACF facilities are invoked. Another way to circumvent these 
problems is to perform inbound translation at the DRDA AS location. 

The following redbooks are useful sources of information about security: DB2 for 
MVS DRDA Server: Security Consideration, GG24-2500 and DB2 for MVS 
Connections with AIX and OS/2, SG24-4558. 

6.4.4 Database Considerations 

A valid user ID must be presented to the DRDA AS. Where authentication is 
performed is of no relevance. Once the DRDA AS has the valid user ID, its 
internal security facility controls any attempts to access its resources (tables, 
indexes, packages). The minimum requirement is that the user ID be granted 
the privilege to connect to the DRDA AS. 

6.4.5 DB2 for AIX Privileges 

With regard to privileges, the considerations for DB2 for OS/2 also apply to DB2 
for AIX. Although UPM is not available in AIX, similar facilities are offered by the 
operating system itself. Individual AIX user IDs can be assigned to groups, 
which are valid subject to SQL GRANT and REVOKE statements. Group 
identifiers are not valid specifications for connections to DB2 for AIX. A user ID 
and a group can share the same name. 

The internal process of checking authorizations and the privileges needed to 
bind and execute packages are the same for both platforms. 

6.4.6 Session Level Security 

The DB2 for AIX AS supports the use of session level security. To implement 
session level security with a specific remote LU select yes in the Session 
security supported? field in the LU 6.2 Partner LU profile and create a 
corresponding LU 6.2 Session Security profile. 

To implement session level security in VTAM, specify VERIFY=REQUIRED in the 
APPL statement. 
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6.5 Accessing the Databases 


6.5.1 SNA Resources 

Before connecting to the database you should check if the SNA system is ready 
to support the communication between the database client on the AIX system 
and the SQL/DS database server. You can use SMIT to start, stop and display 
the SNA resources. To display SNA resources start SMIT and select: 

1. Communications Applications and Services 

2. SNA Server/6000 

3. Manage SNA Resources 

4. Display SNA Resources 

If you ask for the status of SNA you hopefully will get this screen. 


COMMAND STATUS 

Command: OK stdout: yes stderr: no 

Before command completion, additional instructions may appear below. 

Subsystem Group PID Status 

sna sna 6411 active 


Figure 188. Display the Status of SNA 

Also have a look which link is active and which sessions are available. Using 
SMIT you will see this screen with the active link information. 


COMMAND STATUS 

Command: OK stdout: yes stderr: no 

Before command completion, additional instructions may appear below. 

Link Adjacent Node Device # of local In 

station CP name type name State sessions use 


@tok0.4 tokO Starting 0 No 

IPFL3174 DEIBMIPF.IPFCP200 NN tokO Active 2 Yes 


Fl=Help 

F8=Image 


F2=Refresh 

F9=Shell 


F3=Cancel 

F10=Exit 


F6=Command 


Figure 189. Display Active Link Information 

If you use SMIT to show the short report of the LU 6.2 Session Information you 
will see the following screen. 
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COMMAND STATUS 

Command: OK stdout: yes stderr: no 

Before command completion, additional instructions may appear below. 

Local Partner Mode Link 

CGID LU name LU name name station State 


2 DEIBMIPF.IPFP221B DEIBMIPF.IPFCP200 CPSVCMG IPFL3174 Available 

1 DEIBMIPF.IPFP221B DEIBMIPF.IPFCP200 CPSVCMG IPFL3174 Available 


Fl=Help F2=Refresh F3=Cancel F6=Command 

F8=Image F9=Shell F10=Exit 


Figure 190. Display LU 6.2 Session Information 

For more information see appendix B.3, “Database Connection from ITSOI to 
SQL/DS on VM/VSE” on page 239. 


6.5.2 Connection to Databases 

We now want to connect from ITSOI client to the SQL/DS database on VSE. On 
ITSOI we use code page IBM-850 and on SQL/DS we use CCSID 500. 


itsol(db2instl) $ db2 t connect to ipfvsla4 user demo using sql34nt 

Database Connection Information 

Database product = SQL/DS VSE 3.5.0 

SQL authorization ID = DEMO 

Local database alias = IPFVS1A4 

itsol(db2instl) $ 


Figure 191. Connect with Corresponding CCS IDs 

Now we change the CCSID for the SQL/DS database on VSE from 500 to 870. 
Then we try again to connect from the ITSOI client to the SQL/DS database on 
VSE. We get an error message because there is no automatic transformation 
from CCSID 870 to code page 850 and vice versa. 
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itsol(db2instl) $ db2 t connect to ipfvsla4 user demo using sq!34nt 

SQL0332N There is no available conversion for the source code page +870t to 
the target code page t850t. Reason Code tit. SQLSTATE=57017 

itsol(db2instl) $ 


Figure 192. Connect with not Corresponding CCSIDs 

One of the solutions for connecting with an incompatible CCSIDs is as following: 

In order to connect to a data base with an incompatible code page, the following 
steps need to be performed. Although this information is correct at this time 
(Nov '96), you should always check your DB2 manuals first, to see if there is 
more up-to-date information applicable to the same topic. 

1. Make sure you are using DB2 server V2.1.2 or above. 

2. Ask your IBM representative to obtain two conversion files for the pair of 
code pages that you want to support. For example, if you want to support 
connection between code page 819 and code page 915, you need 
08190915.cnv and 09150819.cnv tables. 

3. Place these binary files in the <DB2Path>/sqllib/conv directory on UNIX 
platforms such as AIX, and in the <DB2Path>/sqllib/conv directory on 
various Intel platforms such as OS/2 or Windows. 

4. If you are only using Common Server DB2 C/S products, you need to place 
these files only on the server. 

5. For connections between Common Server DB2 C/S and mainframe DB2 
implementations, such as SQL/DS or DB2/MVS, you need to first ensure that 
the corresponding DB2 host platform supports the same conversion. And 
you only need the Host-to-Workstation conversion table on the workstation 
side. 

6. Once the connection between incompatible code page environments is 
established, you will get a warning message: 


SQL0863W A successful connection was made, but only single byte 
characters should be used. SQLSTATE=0153. 


Figure 193. Connection Information 

This is normal, and intended to warn you that you should only use the 
characters that exist in both code pages. 
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Chapter 7. Multi-Language Solutions 


This chapter focuses on the ZPIZ side, and gives information about the 
connectivity parameters used at ZPIZ and ITSO, and related installation and 
customization steps. 


7.1 ITSO - ZPIZ Multi-Language Solutions 

7.1.1 ZPIZ DRDA Objectives 

We wanted to set up a prototyping environment which would be based on our 
existing l/T infrastructure and would use the existing systems and applications 
that can be integrated with each other. In addition, it must facilitate the evolution 
of information systems while protecting our investments. 

Short term, it must enable us to establish a DRDA connectivity environment and 
provide a framework for enabling new types of applications. 

Long term, the prototype must ensure that the quality of data, data integrity, and 
security remains on the same level as today, if not higher. 

The prototyping must establish an environment that is manageable by our 
existing personnel on existing equipment and must point out all the possible 
unsolved issues and expected difficulties. 

7.1.2 ZPIZ DRDA Environment 

Figure 195 on page 180 illustrates the main software and hardware components 
involved in DRDA connectivity at ZPIZ. Some of them are running on our 
production environment, the others are installed and implemented on a test 
system. 

VM/ESA 1.2.2 system is installed as a second level system and is connected to 
the first level VM/ESA 1.1.1 via Virtual Channel-to-Channel Adapter (VCTCA). 

The SQL/DS 3.5.0 for VM database runs on a VM/ESA second level system. 

SQL/DS 3.5.0 for VSE runs on VSE/ESA 1.3.5 which is connected via VCTCA to 
the VM/ESA first level system. 

VM/VTAM on the VM/ESA first level system is connected via 3745 to the 
Token-Ring and other SNA networks, such as IGN, and via VCTCA to the other 
VTAM systems in our environment. 

7.1.3 ZPIZ Installation and Customization Steps 

For the purpose of establishing the ZPIZ DRDA environment we have 
implemented the following hardware and software environment. 

The current production system runs VM/ESA 1.1.1 on an IBM 9672-R22 in basic 
mode (no LPAR). Under VM/ESA 1.1.1, there are three VSE/ESA guest operating 
systems running, all in a full production environment. 
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In order to influence our existing production environment as little as possible, 
and considering that our processor is not CPU or storage constrained, we have 
installed and implemented the following additional environment: 

1 Install and implement VM/ESA 1.2.2 second level 

The second level virtual machine was called VM122. 

2 Implement AVS/VM environment 

AVSVM virtual machine is running under second level VM122. 

3 Install and implement a new CICS/VSE region 

We installed a new CICS/VSE on one of the existing VSE/ESA guest 
operating systems and named it Z00CICS4. For the VSE system, we have 
chosen the VSE3 virtual machine, which was already running under VM/ESA 
first level. 

The new CICS region must have the capability of establishing LU 6.2 
sessions, and with the ability to connect to our SQLDS application server. 

4 Customize VM/VTAM first level, VM/VTAM second level and VSE/VTAM. 

5 Install and implement the most current SQL/DS 3.5.0 for VM 

This SQL was installed on the VM/ESA 1.2.2 second level system. We have 
prepared the SQLMACH virtual machine as an application server and 
defined a sample SQL database, called SQLDBA. The second user, which 
was defined for the purpose of acting as an application requester, was 
named SQLUSER. The SQLUSER was granted SQL DBA authority. 

6 Install and implement the most current SQL/DS 3.5.0 for VSE 

This SQL was installed on the VSE/ESA 1.3.5 system. We have defined a 
sample SQL database, called SQLDS. 

7 Connect to IBM Global Network (IGN) and ITSO Boblingen 

This was the most time consuming job, especially as we were connecting to 
the IGN for the first time. 

8 APPC connection to ITSO 

9 Customize ACF/NCP 

Some special APPC considerations were taken into account when changing 
NCP parameters. 

10 Install and customize DB2/2 V2.1.1 

We have installed a single-user version of DB2/2 under OS/2 Warp. 

There are some special considerations that have to be taken into account 
before trying to install DB2/2 V2.1. These considerations apply to the 
workstations customized to use the Slovenian code page only. 

11 Install and customize DDCS/2 V2.3 

We have installed a single-user version of DDCS/2 under OS/2 Warp. 

12 If need to support an incompatible code page conversions 

The following steps need to be performed. Although this information is 
correct at this time (Nov '96), you should always check your DB2 manuals 
first, to see if there is more up-to-date information applicable to the same 
topic. 
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a. Make sure you are using DB2 server V2.1.2 or above. 

b. Ask your IBM representative to obtain two conversion files for the pair 
of code pages that you want to support. For example, if you want to 
support connection between code page 819 and code page 915, you 
need 08190915.cnv and 09150819.cnv tables. 

c. Place these binary files in the <DB2Path>/sqllib/conv directory on 
UNIX platforms such as AIX, and in the <DB2Path>/sqllib/conv 
directory on various Intel platforms such as OS/2 or Windows. 

d. If you are only using Common Server DB2 C/S products, you need to 
place these files only on the server. 

e. For connections between Common Server DB2 C/S and mainframe DB2 
implementations, such as SQL/DS or DB2/MVS, you need to first ensure 
that the corresponding DB2 host platform supports the same 
conversion. You only need the Host-to-Workstation conversion table on 
the workstation side. 

f. Once the connection between incompatible code page environments is 
established, you will get a warning message: 


SQL0863W A successful connection was made, but only single byte 
characters should be used. SQLSTATE=0153. 


Figure 194. Connection Information 

This is normal, and intended to warn you that you should only use the 
characters that exist in both code pages. 
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7.1.4 Schematic View of DRDA Environment at ZPIZ 


ZPIZ, IBM 9672-R22 



Figure 195. ZPIZ DRDA Hardware and Software 
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7.1.5 ZPIZ DRDA Connections 

Figure 196 shows the overall connectivity scheme from the ZPIZ point of view. 



From the ZPIZ side, we will be connected as application requesters to the 
following application servers: 


Table 19. ZPIZ DRDA Connections. ZPIZ application requester connection 
possibilities 

ZPIZ AR 

ZPIZ LU 

Partner LU 

Partner AS 

ZPIZ VM 

- 

- 

ZPIZ VM 

Z00AVSL2 

Z00CICS4 

ZPIZ VSE 

Z00AVSL1 

IPFA2GL4 

ITSO VM 

Z00AVSL1 

IPFA21 CD 

ITSO VSE 

ZPIZ OS/2 

Z00T010A 

Z00CICS4 

ZPIZ VSE 

Z00T010A 

Z00AVSL1 

ZPIZ VM 

Z00T010A 

IPFA2GL4 

ITSO VM 

Z00T010A 

IPFA21 CD 

ITSO VSE 


ZPIZ VM application requester will be connected to: 

• Local AS running on VM and VSE platforms 

• Remote AS running on VM and VSE platforms in ITSO Boblingen 

ZPIZ OS/2 application requester will be connected to: 

• Local AS running on VM and VSE platforms 

• Remote AS running on VM and VSE platforms in ITSO Boblingen 
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7.1.6 ZPIZ Connectivity Parameters 

Before setting up the communications between the local and partner systems we 
have collected the SNA and DRDA parameters in a table as shown below. 


Table 20. ZPIZ SNA and DRDA Connectivity Parameters 

Parameter 

DB2/2 

ZPIZ 

SQL/DS 

VM ZPIZ 

SQL/DS 

VSE ZPIZ 

SQL/DS 

VM 

Boblingen 

SQL/DS 

VSE 

Boblingen 

Node 

DB2 

VMNODE 

VSENODE 

BOBVM 

BOBVSE 

Comm.type 

APPC 

APPC 

APPC 

APPC 

APPC 

Symbolic 

dest.name 

- 

VM122AVS 

VSE135B 

BOBAVS 

BOBCICS 

Security 

PGM 

SAME 

PGM 

PGM 

PGM 

Authentication 

DCS 

DCS 

DCS 

DCS 

DCS 

RDB_NAME 

ZO0DB200 

SQLDBA 

SQLDS 

SQLVMDBO 

SQLVSDB1 

CP 

- 

SIZPIZ6 

A05M 

IPFV2 

IPFV2A 

LU name 

Z00T010A 

Z00AVSL1 

Z00CICS4 

IPFA2GL4 

IPFA21 CD 

LU Alias 

Z00T01 

VM122AVS 

VSE135 

BOBAVS 

BOBCICS 

TPN 

DB2DUMMV 

SQLDBA 

TPN1 

SQLVMDBO 

TPN1 

NETID 

SIZPIZOO 

SIZPIZOO 

SIZPIZOO 

DEIBMIPF 

DEIBMIPF 

Modeent 

IBMRDB 

IBMRDB 

IBMRDB 

IBMRDBM 

IBMRDB 
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Chapter 8. REXX SQL Application Enabling and Usage 


8.1 Application Enabling and Usage 

The intent of this chapter is to focus on specific OS/2 REXX application 
capabilities and interfaces to the DB2 family of products. Specifically, the 
interfaces to remote databases residing on VM/ESA and VSE/ESA were tested. 

The REXX examples that follow assume that the DRDA environment was already 
established. 

This chapter is based on the IBM publication GG24-4199 OS/2 REXX From Bark 
to Byte , which concentrates on the OS/2 REXX interface to other OS/2 based 
products, such as DB2/2, CM/2 and MMPM/2. 

8.1.1 OS/2 REXX Interface to DB2 Family of Products 

OS/2 REXX has the capability of using dynamic link libraries (DLL) to interface 
with other software applications, for example DB2/2. DB2/2 provide application 
programming interfaces (APIs) that allow REXX programs to interface with them. 

DB2/2 provides an interface to REXX programs in three basic ways: 

1. The SQLDBS DB2/2 API allows REXX programs to invoke command like 
versions of DB2/2's API set 

2. The SQLEXEC DB2/2 API allows REXX programs to invoke SQL statements. 

3. DB2/2 provides data structures that are accessible by REXX programs 

We will discuss some of these interfaces and how they can be used to create 
useful REXX programs. Example programs are provided and explained. 

If coded properly, the same REXX program can be used to access and 
manipulate databases on either the local or remote site. The remote database 
can reside on any platform that is connected to the local workstation using 
DRDA protocol. That is, it is transparent to the program which database is being 
accessed if cataloged, DB2/2 will find the database's location. 

8.1.1.1 Presentation Manager Interface to REXX 

Some Presentation Manager (PM) features can be included in the REXX program 
by using PMREXX. PMREXX is a windowed Presentation Manager application, 
included with OS/2, that enables the REXX program to input data, and to browse 
the REXX output in a PM window. 

8.1.1.2 Invocation of REXX Programs 

The REXX programs can be started either by typing the REXX program name in 
an OS/2 window, or by typing PMREXX rexxprog_name, which will start the 
program using PMREXX. 
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8.1.1.3 Register DB2/2 Functions to REXX 

The DB2/2 APIs provided by REXX are external function packages. They must be 
registered by the REXX program by using RxFuncAdd. Just like other external 
function packages, once registered these functions are available to all REXX 
programs running on the system until they are dropped. When they are dropped, 
all REXX programs running on the system lose access to these functions. 
Therefore, we recommend not to drop these functions at the end of the 
programs. 

8.1.1.4 Error Handling 

DB2/2 provides information in the SQLCA data structure that is useful in return 
code checking and error determination. SQLCA.SQLCODE is filled with a return 
code value after every call to the SQLEXEC and SQLDBS APIs. A way to get a 
more detailed explanation of the SQL error is to bring up the DB2/2 online 
documentation. An example of this is provided in Figure 197, which is taken from 
SQLERR.CMD. 


/* 

SQLERR 

This routine is called when there is an SQL error. 

The view command is used to bring up the DBMSG.INF 
information for the error. 

Input arguments: 

SQLCODE - SQL error code (SQLCA.SQLCODE) 

TABLE NAME - database table name 

*/ 

arg sqlcode 

sqlcode = STRIP (sqlcode, CLC, C-C) /* remove a sign and */ 

/* pad with zeros on the left */ 
If Length (sqlcode) < 4 then sqlcode = RIGHT (sqlcode, 4, COC) 

START /PM VIEW DBMSG.INF SQLC] ] sqlcode 
return 


Figure 197. SQL Error Handling 


8.1.1.5 REXX SQL Statement Type 

There are two types of SQL statements, static and dynamic. Static SQL 
statements are statements that are prepared prior to the execution of the 
program that contains them. The complete SQL statement must be known prior 
to the compilation of the program. During compilation, an executable form of the 
SQL statement is created. Having said that, since OS/2 REXX is an interpreted 
language and not a compiled language, static SQL statements are not possible 
in REXX. All SQL statements in REXX programs are prepared when the program 
runs. The term used for this type of statement is dynamic SQL statement. 

Both static and dynamic SQL statements have advantages. Static SQL 
statements often process faster than dynamic SQL statements because the 
overhead of preparing the statement is done before the program actually runs. 
However, dynamic statements offer more flexibility because the actual form of 
the SQL statement does not need to be known before the program runs. For 
example, if you want to use the SELECT statement to query a table and load the 
results into variables, in a static SQL situation you would need to know the 
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number of columns in the table and their names before your program is 
compiled. If there are changes to the table, chances are your program would 
have to be recompiled. Using a dynamic SQL statement in this situation, the 
number of columns, their names, lengths, and data types do not need to be 
known in advance. They can be obtained during the execution of a program. 


8.1.1.6 SQL SELECT Example 

The steps used to code the SELECT type of program: 

1. CONNECT to the database 

2. Create the SELECT statement 

3. Use the DECLARE statement to define a cursor and associate the cursor to 
the SELECT statement 

4. Use the PREPARE statement with the INTO clause to dynamically build the 
SELECT statement and specify a REXX variable into which column 
information from the SQLDA will be loaded 

5. Use the DESCRIBE statement to load column information from the SQLDA 
into a REXX array variable 

6. Use the OPEN statement to initialize the cursor pointing to the first row 

7. Use the FETCH statement with the USING DESCRIPTOR in a loop to retrieve 
rows into REXX array variable 

8. Use the CLOSE statement to release the cursor 

9. Use the COMMIT statement to complete the unit of work 
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/* 

SELECT.CMD 

This routine prompts user to select a database and then a table 
from the database. A dynamic SQL query is run on the table 
and the results are loaded into a flat file called TABLE.DAT. 

*/ 

CSecho offC 

/* load SQLDBS and SQLEXEC external function packages if necessary */ 
if Rxfuncquery(CSQLDBSC) <> 0 then do 

rc = RxFuncAdd (CSQLDBSC , CSQLARh , CSQLDBSC) 
if RC \= 0 then do 

say fError registering SQLDBS, rc = t rc 
return 

end /* if RC */ 
end 

if Rxfuncquery (CSQLEXECC) <> 0 then do 

rc = RxFuncAdd(CSQLEXECC, CSQLARC, CSQLEXECC) 
if RC \= 0 then do 

say tError registering SQLEXEC, rc = t rc 
return 

end /* if RC */ 
end 

/* disconnect from any database */ 
call sqlexec ^CONNECT RESETS; /* -1024 means not connected */ 

if ( SQLCA. SQLCODE <> 0 & SQLCA. SQLCODE <> -1024) then do 
call sqlerr SQICA. SQLCODE 

say ^CONNECT RESET Error, SQLCODE = $ SQLCA. SQLCODE; 
return 
end 

say CEnter DBNAME, USERID and PASSWORD: C; 
pull dbname userid password; 

/* connect to a remote database */ 
call sqlexec ^CONNECT TO C dbname CUSER C userid FUSING <? password; 
if ( SQLCA. SQLCODE <> 0) then do 
call sqlerr SQIGA. SQLCODE 

say ^CONNECT Error, SQLCODE = <? SQLCA. SQLCODE; 
return 
end 

/* prepare dynamic SQL statement */ 
say CEnter table name: 1 ?; /* ask the user for a table name */ 

pull table; 

stl = tSELECT * FROM t table /* select statement */ 

call sqlexec ^DECLARE cl CURSOR FOR sl<? /* declare cursor */ 

if ( SQLCA. SQLCODE <> 0) then do 
call sqlerr SQIGA. SQLCODE 

say ^DECLARE Error, SQLCODE = <? SQLCA. SQLCODE; 
return 
end 


Figure 198 (Part 1 of 3). SQL SELECT Example 
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/* prepare statement */ 

call sqlexec CPREPARE si INTO :sqlda FROM :stlC 
if ( SQLCA. SQLCODE <> 0) then do 
call sqlerr SQLCA. SQLCODE 

say CPREPARE Error, SQLCODE = C SQLCA. SQLCODE; 
return 
end 

/* describe statement */ 

call sqlexec ^DESCRIBE si INTO :sqldaC 
if ( SQLCA. SQLCODE <> 0) then do 
call sqlerr SQLCA. SQLCODE 

say ^DESCRIBE Error, SQLCODE = C SQLCA. SQLCODE; 
return 
end 

/* open cursor */ 

call sqlexec COPEN clC 
if ( SQLCA. SQLCODE <> 0) then do 
call sqlerr SQLCA. SQLCODE 
say COPEN Error: SQLCODE = C SQLCA.SQLCODE; 
return 
end 

/* fetch row */ 

call sqlexec CFETCH cl USING DESCRIPTOR : sqldaC 
if ( SQLCA. SQLCODE <> 0) then do 
call sqlerr SQICA. SQLCODE 
say COPEN Error: SQLCODE = C SQLCA.SQLCODE; 
return 
end 

/* prepare output file */ 
C0ERASE TABLE.DAT 2>nul:C /* erase TABLE.DAT if it already exists */ 
header = CQuery results from DB2/2 to database C dbname C , table C table 
blankheader = tt 
dateheader = date (CoC); 
timeheader = time () ; 
dtheader = dateheader timeheader; 

/* write header records to TABLE.DAT */ 
call LINEOUT CTABLE.DATC,blankheader 
call LINEOUT CTABLE.DATC,dtheader; 
call LINEOUT CTABLE.DATC,header 
call LINEOUT CTABLE.DATC,blankheader 
do while (SQLCA. SQLCODE = 0) /* loop through rows */ 

outrec = CC /* retrieved with SELECT */ 

do col = 1 to sqlda.sqld /* loop through columns and */ 

/* build output record */ 
if (sqlda.col.sqlind) = -1 then /* is it a null field */ 

outrec = outrec C-C 
else 

outrec = outrec sqlda. col. sqldata 
end /* do col */ 

call LINEOUT CTABLE.DATC,outrec /* write output record */ 

call sqlexec CFETCH cl USING DESCRIPTOR :sqldaC /* get next row */ 
end /* do while */ 

Figure 198 (Part 2 of 3). SQL SELECT Example 
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call LINEOUT 4TABLE.DAR /* close file */ 

/* clean up - close cursor and commit work */ 

call sqlexec 4CIOSE cR; 
if ( SQLCA. SQLCODE <> 0) then do 
call sqlerr SQLCA. SQLCODE 
say 4CLOSE Error, SQLCODE = 4 SQLCA. SQLCODE; 
return 
end 

call sqlexec COCNMIR 
if ( SQLCA. SQLCODE <> 0) then do 
call sqlerr SQICA. SQLCODE 
say ^COMMIT Error, SQLCODE = 4 SQLCA. SQLCODE; 
return 
end 

/* disconnect from database */ 

call sqlexec ^CONNECT RESETS; 
if ( SQLCA. SQLCODE <> 0) then do 
call sqlerr SQICA. SQLCODE 

say ^CONNECT RESET Error, SQLCODE = 4 SQLCA. SQLCODE; 
return 
end 

/* open E editor with TABLE.DAT, which contains query results */ 

4START /PM E TABLE. DAR 

return 


Figure 198 (Part 3 of 3). SQL SELECT Example 

Notes: 

1. The program uses the cursor to traverse through the rows. The cursor 
points to the row currently being processed, beginning with the first row. The 
cursor is incremented to point to the next row by DB2/2 automatically when 
you request the next row using the FETCH statement. 

2. The PREPARE statement validates the SELECT statement and prepares it for 
execution. It names the REXX variable into which the SQLDA information will 
be loaded. 

3. The DESCRIBE statement loads column information into the REXX array 
variable. 

4. The OPEN statement initializes the cursor to point to the first row that 
satisfies the SELECT conditions. 

5. The FETCH statement with the USING DESCRIPTOR clause loads the row 
data into the REXX array variable. 
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8.1.1.7 SQL INSERT Example 


/* prompt user to enter values */ 

fields=<f<f 

values=<f<f 

do i = 1 to sqlda.sqld 

say CEnter a <? sqlda. i. sqllen d character d sqlda. i. sqlname 
pull data 

if (data = d<?) & (sqlda.i.sqltype //2 = 0) then do 

say CNo nulls allowed in this field. Please enter a <? sqlda. i. sqllen, 
d character d sqlda.i.sqlname 
pull data 

if data = dd then do 

say Cleaving program - user errorC 
return 

end /* if data */ 
end /* if data */ 

fields = fields] ] sqlda.i.sqlname] ]C,C /* build column name string */ 
values = values] ] tCt] ]data] ] tC, t /* build column values string */ 
end /* do i = 1 */ 

fields = STRIP (fields, t, C, C) /* remove last comma */ 

values = STRIP (values, t, C, C) 

stl = tINSERT INTO t table t(tfieldst) VALUES (tvaluest)t 
call SQLEXEC CEXECUTE IMMEDIATE :stlC 
if ( SQLCA. SQLCODE <> 0) then do 
call sqlerr SQICA. SQLCODE 

say CUPDATE Error, SQLCODE = C SQLCA. SQLCODE; 
return 
end 
else 

call SQLEXEC CCCMMITC 
if ( SQLCA. SQLCODE <> 0) then do 
call sqlerr SQLCA. SQLCODE 

say CCOMMIT Error, SQLCODE = C SQLCA. SQLCODE; 
return 
end 


Figure 199. SQL INSERT Example 

In an application that is adding rows to a table, the techniques discussed in the 
previous section on SELECT can be very helpful. The example in Figure 199 
shows the usage of the SQL INSERT statement. 

Notes: In the figure above only a section of a program is shown. 

• the SQLDA.SQLD contains the number of columns in the row. 

• the SQLDA.SQLLEN contains the length of a column. 
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Appendix A. System Tables and Sample Programs 


A.1 VM/VTAM Definitions - BOEVMIS2 


ATCCON02 VTAMLST 



PF2PATH, 

** PATH TABLES 

** C 

PFNV5, 

** NCP FOR 3725 

** C 

PFNV3, 

** NCP FOR 3745 

** C 

PF2VSCS, 

** HOST APPLICATIONS FOR VM ONLY 

** C 

PF2AVS, 

** AVS 

** C 

PF2CDRM, 

** CDRMS: 

** C 

PF2CDRS, 

** RESOURCES: 

** C 

DRSDRDA, 

** DRDA RESUORCES: 

** C 

PF2SNA, 

** LOCAL SNA, 3174-11L 

** C 

PF2L0C, 

** LOCAL NON SNA, 4361-WSA 

** C 

PF2CTCA, 

** VCTCA TO 2ND LVL VSE/ESA 1.3 

** C 

VMS, 

** PVM GATEWAY DEFINITIONS 

** C 

PF2SSCP, 

** ADJACENT SSCP FOR DYNAMIC 

** C 

PNSAPPL, 

** TPNS APPLS 

** C 

PNSDM, 

** TPNS DISPLAY MONITOR APPL 

** C 

PNSCDRM, 

** TPNS CROSS DOMAIN RESOURCE MAN. 

** C 

PNSCDRS, 

** TPNS CROSS DOMAIN RESOURCES 

** C 

390IAN, 

** P390 GROUP 

** C 

390CDRM, 

** P390 CROSS DOMAIN RESOURCE MANAGER** C 

390CDRS, 

** P390 CROSS DOMAIN RESOURCE 

** C 

390AVS, 

** P390 GATEWAY LU 

** C 

PF2RSCS, 

** RSCS APPLICATION 

** C 

PFA2NP, 

** NPM APPLICATION MAJOR NODE 

** C 

PFA2NV, 

** NETVIEW APPLICATION MAJOR NODE 

** C 

DRSSLOV, 

** ZPIZ SLOVENIA CONNECTIVITY 

** C 

PF2SWI0 

** SWITCHED MAJOR NODE VIA 3745 


RAPHOPT BLOCK 

NAME IPF* 


RAPHOPT FORWARD NAME IPFA2NV 


RAPHOPT FORWARD NAME IPFCP200 


RAPHOPT FORWARD NAME IPFA21CD 


RAPHOPT FORWARD NAME IPF2AGL4 



Figure 200. ATCCON02 VTA ML ST 
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ATCSTR02 VTAMLST 


* DEFAULT BUFFER SIZE ARE USED 


*APBUF= (16, 60,2,, 1,3) 


*BSBUF= (28,142, 0,, 1,27) 


*LFBUF= (2,80,0,, 1,1) 


*LPBUF= (12,1344,0,, 1,6) 


*SFBUF= (51,72,0,, 1,1) 


*SPBUF= (2,112,0,, 1,1) 


*WPBUF= (19,208,0,, 1,19) 


*XDBUF= (6, 665,0, ,1,5) 


*CRPLBUF= (60,116,0,, 1, 60) 

k 


IOBUF= (200,384, 40,, 10,80,0), 

C 

C.SAT ,1M1T=0, 

C 

CDRSCTI=480, 

C 

CONFIG=02, 

C 

DLRTCB=32, 

C 

DYNASSCP=NO, 

C 

GWSSCP=NO, 

C 

HOSTPU=IPFVM2, 

C 

HOSTSA=02, 

C 

IOINT=180, 

C 

MAXSUBA=255, 

C 

MSGM3D=NO, 

C 

NETID=DEIBMIPF, 

C 

M4VTLOG=NEVER, 

C 

NMVTT,OG=NEVER, 

C 

PPOLOG=NO, 

c 

SDLOMDRS=NO, 

c 

SSCPDYN=YES, 

c 

SSCPID=02, 

c 

SSCPNAME=IPFV2, 

c 

SSCPORD=PRIORITY, 

c 

SUPP=NOSUP, 

c 

TNSTAT, 

c 

TIME=1440, 

c 

N01RACE, TYPE=VTAM, 

c 

USSTAB=ISTINCNO, 

c 

XNETALS=NO 



Figure 201. ATCSTR02 VTAMLST 


IPF2CDRM VTAMLST 



VBUTT.D TYPE=CDRM 



IPF 

~k 

CDRM 

SUBAREA=01,CDRSC=OPT 
STATOPT=9BOEVMISC9 

■ k-k 

SA=01 BOEVMISC 

IPFV2 

~k 

CDRM 

SUBAREA=02,CDRDYN=YES 
STATOPT=9BOEVMIS2<: 

:k-k 

SA=02 BOEVMIS2 

IPFV2A 

■k 

CDRM 

SUBAREA=21, CDRSCOPT 
STATOPT=9VSEANL139 

•k-k 

SA=21 VSEANL13 

IPFV2B 

CDRM 

SUBAREA=22,CDRSC=OPT 

•k-k 

SA=22 V123A80K 


Figure 202. IPF2CDRM VTAMLST 
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IPF2CDRS VTAMLST 



VBUILD TYPE=CDRSC 


WCVM122 

CDRSC 

CDHM=SSCP04 ** SA=04 BOEVMIS1 WCVM122 


RSCS122 

CDRSC 

CDRM=SSCP04 ** SA=04 BOEVMIS1 RSCS 


IPFA1RSC 

CDRSC 

CDRM=IPF ** SA=01 BOEVMISC 


IPFA1VSC 

CDRSC 

CDRM=IPF ** SA=01 BOEVMISC 


IPFA21CD 

CDRSC 

CDRM=IPFV2A ** SA=21 VSEANL13 


k 


STATOPT=9VSEANLl3 CICS9 


IPFAN 

CDRSC 

CDRM=IPFV2 ** SA=2 IPFA2NV (NETVIEW) 


k 


STATOPT=CMANFREDS PWSC 


IPFCLOEO 

CDRSC 

ALSLIST=(IPFCP20E,IPFCP200), 

C 



ALSREQ=YES, 

C 



DI0GM3D=IBMRDBM, 

MODETAB=DRDAMOD 

C 

IPFBOEDJ 

CDRSC 

ALSLIST=(IPFP211B, IPFCP200), 

C 



ALSREQ=YES, 

C 



DI0GM3D=IBMRDBM, 

MODETAB=DRDAMOD 

C 

Figure 203. 

IPF2CDRS VTAMLST 


IPF2SNA 

VTAMLST 



VBUILD TYPE=LOCAL 


k 

DEFINE THE GATEWAY CONTROLLER PU 


IPFCP200 PU 

CUADDR=200, 

C 



DELAY=0.2, 

C 



ISTATUS=ACTIVE, 

c 



MAXBFRU=29, 

c 



PUTYPE=2, 

c 



XID=YES, 

c 



DYNLU=YES, 

c 



USSTAB=ISTSNA, MODETAB=ISTINCIM, DLOGMOD=D4A32782 


k 

DEFINE THE DOWNSTREAM PUS ATTACHED TO THE GATEWAY 


IPFCP20E PU 

CUADDR=20E, 

c 



DELAY=0.2, 

c 



ISTATUS=ACTIVE, 

c 



MAXBFRU=29, 

c 



PUTYPE=2, 

c 



XID=NO, 

c 



USSTAB=ISTSNA, MODETAB=AMODETAB, DLOGMOD=MSDIOQ, 

c 



PACING=1,VPACING=1, 

c 


Figure 204. IPF2SNA VTAMLST 
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IPF2SSCP VTAMLST 



VBUILD TYPE=ADJSSCP 



NETWORK 


IPF 

ADJCDRM 


DEIBMIPF 

NETWORK NETID=DEIBMIPF 


IPF 

ADJCDRM 


~k 

STATOPT=< : BOEVMISC< : 


IPFV2 

ADJCDRM 


~k 

STATOPT=CBOEVMI S2 VTAMC 


IPFVA 

ADJCDRM 


■k 

STATOPT=< : BOEVMISl< : 


IPFV2A 

ADJCDRM 


k 

STATOPT=CVSEANLl 3 VTAMC 


IPFV2B 

ADJCDRM 


■k 

STATOPT=m32A80K VTAMC 


Figure 205. 

IPF2SSCP VTAMLST 


CDRSSLOV VTAMLST 


* Z00AVSL1_VM/ESA AR ITSO- 

■ VM/ESA AS ZPIZ 

* Z00CICS4_VM/ESA AR ITSO- 

- VSE/ESA AS ZPIZ 


VBUILD TYPE=CDRSC 

NETWORK NETID=SIZPIZ00 


Z00AVSL1 CDRSC 

Z00CICS4 CDRSC 



Figure 206. CDRSSLOV VTAMLST 
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IPF2SWI0 VTAMLST 



IPF2SWI0 VBUILD TYPE=SWNET, 


C 


MAXGRP=5, 

NUMBER OF UNIQUE PATH GROUPS 

c 


MAXNO=20, 

NUMBER OF UNIQUE PHONE NUMBERS 


■k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k 


* PS/2 FOR DRDA 



■k-k-k-k'k-k'k'k-k-k-k-k-k-k'k-k'k-k'k-k'k-k-k-k-k-k-k-k'k-k-k-k'k-k'k-k'k-k-k-k'k'k'k-k'k'k-k-k-k-k-k'k'k-k'k-k-k-k'k-k'k-k 


IPFCPSOE PU 

ADDR=0E, 

COULD BE ANYTHING (NOT USED) 

c 


IDBLK=05D, 

IDBLK OF OS/2 CCMM. MANAGER 

c 


IDNUM=E000E, 

IDENTIFICATION NUMBER 

c 


DISCNT=NO, 

VTAM DOES NOT HANG UP 

c 


MAXOUT=l, 

MAXIMUM NUBER OF PIUS 

c 


MAXDATA=1920, 

MAXDATA FOR OS/2 COMM. MANAGER 

c 


USSTAB=ISTSNA, 


c 


MODETAB=AMODETAB, 


c 


DLOGMOD=MSDIOQ, 


c 


MAXPATH=1, 

NUMBER OF DIAL OUT PATHS TO PU 

c 


VPACING=2, 


c 


PUTYPE=2, 


c 


CPNAME=CPSOE, 


c 


ISTATUS=ACTIVE 



PATH 

DIALNO=020440001010100E, 

c 


GRPNM=IPFG3L8 9, 

LOGICAL GROUP NAME OF TIC 2 

c 


GID=1, 


c 


PID=2 



IPFSLOEO LU 

LOCADDR=0 0, MODETAB=DRDAMOD,DLOGMOD=IBMRDBM 



Figure 207. IPF2SWIO VTAMLST 


IPF2AVS VTAMLST 

AVS run as VTAM application (defined to VM/VTAM) 


IPF2AVS VBUILD TYPE=APPL 

IPFA2GL4 APPL APPC=YES, 

C 

AUTHEXIT=YES, 

C 

AUTOSES=20, 

C 

DSESLIM=200, 

C 

DMINWNL=100, 

C 

DMINWNR=100, 

C 

EAS=3999, 

C 

MAXPVT=2 0 OK, 

C 

SECACPT=ALREADYV, 

C 

VERIFY=NONE, 

C 

VPACING=2, 

C 

MODETAB=DRDAMOD, 

C 

DLOGM3D=IBMRDBM, 

C 

SYNCLVL=CONFIRM, 

C 

OPERCNOS=ALLOW, 

PARSESS=YES 

* STATOPT=9AVSVM LU9 

C 


Figure 208. IPF2AVS VTAMLST 
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A.2 VSE/VTAM Definitions - BOEVMIS2 


CATALOG ATCSTROO .B 


SSCPID=21, 

C 

HOSTSA=21, 

C 

SSCPNAME=IPFV2A, 

C 

HOSTPU=IPFVM21, 

C 

NOPRCMPT, 

C 

NETID=DEIBMIPF, 

C 

MAXSUBA=255, 

C 

CONFIG=00, 

C 

DYNLU=YES, 

C 

IOINT=0, 

C 

SGALTMTT=0, 

C 

BSBUF= (28,,,, 1), 

C 

CRPLBUF= (60,,,, 1), 

C 

LFBUF=(70, ,,,11), 

C 

IOBUF= (70,288,,, 11), 

C 

LPBUF= (12,,,, 6), 

C 

SFBUF= (20,,,, 20), 

C 

SPBUF=(210,,,,32), 

C 

XDBUF= (6,,,, 1) 



Figure 209. ATCSTROO.B 

CATALOG ATCCON00.B 


APPLDRD, 

C 

VTMSNA, 

c 

VTMNSNA, 

c 

VTMPATH, 

c 

VTMCA1, 

c 

VTMCA2, 

c 

VTM0A3, 

c 

VTMCTCA, 

c 

CDRMDRDA, 

c 

ADJDRDA, 

c 

CDRSSLOV, 

c 

CDRSSTB3, 

c 

EXPVAPPL, 

c 

VTMCDRS, 

c 

VTMSW1 



Figure 210. ATCCONOO.B 
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CATALOG ADJDRDA.B 

ADJDRDA VBUILD TYPE=ADJSSCP 

NETWORK 

IPF ADJCDRM 

DEIBMIPF NETWORK NETID=DEIBMIPF 

IPFV2A ADJCDRM 

IPFV2 ADJCDRM 

IPF ADJCDRM 

Figure 211 

. ADJDRDA.B 



IPFNV30P OPTIONS NEWDEFN= (YES, ECHO) 



kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk 

* NEWNAME = IPFNV3 * 


k 

kkkkkkkkkkkkkkkkkkkkkkkkkkkkk 


k 

k 

k 

SUBAREA = 03 

k 

* ACF/NCP FOR 3745-170 * 

10/10/94 BY WILLEM 

k 

k 

k 

MM/DD/YY 

k 

kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk 

k 

PCCU9S STATEMENT SPECIFICATIONS (V6R2M0) 

k 

kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk 

k 



k 

k 

PCCU SPECIFICATIONS - ACF/VTAM BOEVMISC 3745 (SUBAREA 01) 

k 

k 



k 

kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk 

IPFPCC 

PCCU AUTODMP=NO, 

AUTOMATICALLY TAKE DUMP 

c 


AUTOIPL=NO, 

LOAD NCP AFTER FAILURE OR DUMP 

c 


AUTOSYN=YES, 


c 


BACKUP=NO, 

NO BACKUP HOST 

c 


CHANCONCOND, 

DEFAULT 

c 


CUADDR=560, 

CHANNEL-ATTACHMENT ADDRESS 

c 


DELAY=.2, 


c 


DUMPDS=NCPDUMP, 

DUMP DATA SET 

c 


DUMPLD=NO, 

DEFAULT 

c 


GWCTL=SHR, 

DEFAULT 

c 


LOADFRCM=HOST, 

DEFAULT 

c 


MAXDATA=7000, 

MAXIMUM PIU SIZE 

c 


NETID=DEIBMIPF, 

SNI ONLY 

c 


OWNER=IPFHOS, 


c 


SAVEMDD=NO, 

DEFAULT 

c 


SUBAREA=01, 

HOST SUBAREA ADDRESS 

c 


TGN=1, 

DEFAULT 

c 


VFYC=IGNORE, 


c 


VFYIM=YES 

VERIFY NCP LOAD MODULE NAME 



Figure 212. IPFNV3 
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CATALOG CDRMDRDA.B 

CDRMDRDA VBUILD TYPE=CDRM 

NETWORK NETID=DEIBMIPF 

IPFV2A CDRM SUBAREA=21,CDRDYN=YES,CDRSC=OPT,ISTATUS=ACTIVE 

IPFV2 CDRM SUBAREA=02,CDRDYN=YES,CDRSC=OPT,ISTATUS=ACTTVE 

IPF CDRM SUBAREA=01,CDRDYN=YES,CDRSC=OPT,ISTATUS=ACTTVE 


Figure 213. CDRMDRDA.B 


CATALOG VTMCDRS. B 

VTMCDRS VBUILD TYPE=CDRSC 
IPFBOEDJ CDRSC CDRiy^IPFV2, ISTATUS=ACTIVE 
IPFCLOEO CDRSC CDERKCPFV2, ISTATUS=ACTIVE 
IPFSLOEO CDRSC CDEIYK[PFV2, ISTATUS=ACTIVE 
IPFA2GL4 CDRSC CDFM=IPFV2,ISTATUS=ACTIVE 


Figure 214. VTMCDRS. B 


CATALOG CDRSSLOV.B 

VTMCDRS VBUILD TYPE=CDRSC 

NETWORK NETID=SIZPIZ00 
Z00AVSL1 CDRSC 
Z00T010A CDRSC 


Figure 215. CDRSSLOV.B 


scaled 1 

o 

-o- 



CATALOG APPLDRD. B 


APPLDRD 

VBUILD TYPE=APPL 


IPFA21CD APPL 

ACBNAME=IPFA21CD, 

C 



AUTH=(ACQ,PASS,VPACE), 

c 



APPC=NO, 

c 



SONSCIP=YES, 

c 



EAS=30, 

c 



PARSESS=YES, 

c 



MODETAB=DRDAMOD, 

c 



DLOGMOD=IBMRDBM, 

VPACING=0 

c 

POWER 

APPL 

AUTH= (ACQ) 


PNET 

APPL 

AUTH= (PASS, ACQ) ,VPACING=3,MODETAB=VTMLOGTB,DLOGMOD=PNET 


IESWAITT APPL 

AUTH=(NOACQ) 



Figure 216. Application Definition at ITSO 
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Problem 


db2=>connect to ipfvsla4 user cicsusl using cicsusl 

SQL30081N A communication error has been detected.Communication protocol 
being used tAPPCt. Communication API being used: tCPI-Ct. Location where 
the error was detected :tt. Communication function detecting the error: 

tcmallct 

Protocol specific error code(s): t24t, t*t, t*t. SQLSTATE-0800 

send vtam vtam v net, act, id=ipfa2g!4, scope=all 

VTAM 

Ready; 

VTAM 

IST097I VARY ACCEPTED 

VTAM 

IST093I IPFA2GL4 ACTIVE 

VTAM 

IST663I BFINIT REQUEST FROM IPFNV3 FAILED, SENSE=08570003 

VTAM 

IST664I REAL OLU=DEIBMIPF.IPFSLOEO REAL DLU=DEIBMIPF.IPFA2GL4 

VTAM 

IST889I SID = E5570B05CC3A82F6 

VTAM 

IST264I REQUIRED RESOURCE IPFA2GL4 NOT ACTIVE 


Figure 217. Problem — Connect Failed 


SOLUTION : 

MSG F2 

2 cemt set vtam open 

Figure 218. Solution for Connection Failed 


A.3 Field Procedure Sample 


FIELDPROC-THE SAME ASSEMBLER PROGRAM WAS CUSTOMIZED ON SQL/DS VSE/ESA 


* ACC 193 V 

■k 

* & TRACE ALL 

* GLOBAL MACLIB DMSOM DMSGPI OSMACRO FLDPROC 

* HASM &1.ASSEMBLE (24 BIT) 

* LOAD &1 ( RLD 

* GENMOD &1 


Figure 219. Field Procedure Installation under l /M/ESA 
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kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk 

* SLOSORT ASSEMBLE 


k 

* COLLATING SEQUENCE FOR SLOVENIA WAS IMPLEMENTED. 

k 

k 



k 

kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk 

kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk 

k 



k 

* EXAMPLE OF SORTING SEQUENCES FOR SLOVENIA: 

k 

k 



k 

* CODING FOR DOUBLE BYTE VOWEL, HAS NOT BEEN REMOVED, BUT JUST 

k 

* SET TO 00. 


k 

* THE CUSTOMER HAS ALTERNTIVE, TO EXTENT SORT REQUESTS. 

k 

k 



k 

* MODULE NAME = SLOSORT 


k 

kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk 

kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk 

870 

TITLE «870<: 

EJECT 



SLOSORT 

START 0 



SLOSORT 

AM3DE 31 



SLOSORT 

RHODE ANY 




PRINT GEN 




USING SLOSORT, R12 

Base register 



SAVE (14,12),,SLOSORT 

SAVE REGS 



LR R12,R15 

ST R13,SAVE 

LOAD BASE REGISTER 



USING FPPL, R1 

Parameter List 



L R2,FPPWORK 

WORK AREA ADDRESS 



L R3,FPPFPIB 

COMMON INFORMATION BLOCK 


USING FPIB,R3 

Common Information Block 


L R4,FPPCVD 

COLUMN DESCRIPTOR 



L R5,FPPFVD 

FIELD DESCRIPTOR 



L R6,FPPPVL 

PARAMETER VALUE LIST 



USING FPPVL, R6 

PARAMETER VALUE LIST 


kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk 

* MAIN LINE 


k 


k 

LH R7,FPBFCODE 

GET SQL FUNCTION CODE 


k 

L R15,FDFLC(R7) 

SELECT APPROPRIATE ROUTINE 

k 

B R15 

CLC FPBFCODE,=AL2(FPBFDEF) 
BE DEFINE 

CLC FPBFCODE,=AL2(FPBFENC) 
BE ENCODE 

CLC FPBFCODE,=AL2(FPBFDEC) 



k 

BE DECODE 




Figure 220 (Part 1 of 7). Field Procedure Sample 
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MVC 

FPBRTNC,=AL2(FPBRC12) 

SET RETURN CODE 


MVC 

FPBRSNC, CCCODEC 

SET REASON CODE 


L 

R13,SAVE 

RESTORE R13 


RETURN (14,12),RC=12 



LTORG 



* FDFLC 

k 

DC 

A (ENCODE,DECODE,DEFINE) 

'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k 

DEFINE 

EQU 

k 

FUNCTION 

■k'k'k-k'k-k'k-k-k-k'k-k-k-k'k-k-k-k'k-k'k-k-k-k-k-k'k-k'k-k-k-k-k-k-k-k'k-k-k-k'k-k'k-k-k-k'k'k-k-k-k-k'k-k'k'k-k-k-k-k-k-k-k-k 


LH 

R8,FPVDTYPE-FPVD(R4) 

COLUMN DATA TYPE 


CH 

R8, =AL2 (FPVDTVCH) 

IS IT FIX CHARACTER 


BE 

CDTOK 



CH 

R8, =AL2 (FPVDTCHR) 

IS IT VAR CHARACTER 

k 

BE 

CDTOK 



MVC 

FPBRTNC, =AL2 (FPBRC4) 

SET RETURN CODE 


MVC 

FPBRSNC, CCTYPEC 

SET REASON CODE 


L 

R13,SAVE 

RESTORE R13 

k 

RETURN (14,12),RC=8 


CDTOK 

EQU 

k 



MVC 

FPBWKLN, =HC256< : 

SET WORK AREA LENGTH (NOT USED) 


MVC 

FPPVLEN, =HC0<: 

SET PARM VALUE LIST (NOT USED) 


MVC 

FPVDTYPE-FPVD (L<:FPVDTYPE,R5), FPVDTYPE-FPVD (R4) 

k 

MVC 

FPVDVLEN-FPVD (LCFPVDVLEN, R5), FPVDVLEN-FPVD (R4) 


MVC 

FPBRTNC, =AL2 (FPBRCO) 

SET RETURN CODE 


MVC 

FPBRSNC,=CC C 

SET REASON CODE 


L 

R13,SAVE 

RESTORE R13 

k 

RETURN (14,12),RC=0 


'k'k'k'k-k'k'k-k'k-k'k-k'k-k'k'k'k-k'k-k'k-k'k'k'k-k'k-k'k-k'k'k'k-k'k'k'k'k'k-k'k-k'k-k'k'k'k'k'k-k'k'k'k'k'k'k'k-k'k'k'k'k'k'k 

ENCODE 

EQU 

■k 

FUNCTION 

kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk 


LH 

R8,FPVDTYPE-FPVD(R4) 

GET COLUMN DATA TYPE 


CH 

R8, =AL2 (FPVDTVCH) 

IS IT VAR CHARACTER ? 

k 

BE 

VCHE 

YES 


LH 

R7,FPVDVLEN-FPVD(R4) 

GET FIX CH COLUMN LENGTH 


BCTR 

R7,0 

L-l 

k 

B 

ENCP 

ENCODE PROCEDURE 

VCHE 

EQU 

■k 



LH 

R7,FPVDVALE-FPVD(R4) 

GET VAR CH COLUMN LENGTH 


STH 

R7,FPVDVALE-FPVD(R5) 

STORE LENGTH INTO FVD 


BCTR 

R7,0 

L-l 


LA 

R4,2(R4) 

CONSIDER 2 BYTE FIELD LENGTH 


LA 

R5,2 (R5) 

CONSIDER 2 BYTE COLUMN LENGTH 

'k 

:k 

B 

ENCP 

ENCODE PROCEDURE 


Figure 220 (Part 2 of 7). Field Procedure Sample 
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ENCP 

EQU 

k 



EX 

R7,MDVEE 

MOVE COLUMN TO FIELD 


EX 

R7,TRANE 

ENCODE XLATE FIELD 

EXTRE 

EX 

R7, TRTLE 

1ST BYTE MIXED & 2ND LOWER CASE 


BC 

8,NEXTE 

NO HIT, GO & GET NEXT FIELD 


LR 

R9,1 

SAVE HIT ADDRESS WITHIN FIELD 


STC 

R2,CL1LE+1 

FUNCTION BYTE TO CLI MASK 

CLILE 

CLI 

1(R9),X9009 

X9009 = EXPECTED 2ND BYTE 

k 

BE 

FINDE 

CONTINUE WITH THE NEXT BYTE 


TRT 

0 (0,R9) ,1BLUE 

1ST BYTE UPPER & 2ND BUTE UPPER 


BC 

8,LOOPE 

NO HIT, GO FOR LOWER CASE 


STC 

R2,CLIUE+1 

FUNCTION BYTE TO CLI MASK 

CLIUE 

CLI 

1 (R9) ,X9009 

X9009 = EXPECTED 2ND BYTE 

k 

BNE 

LOOPE 

GO FOR 2N BYTE IN LOWER CASE 

FINDE 

TR 

0 (0,R9) ,DBWTE 

GET WEIGHT FOR 1ST BYTE 

k 

LA 

R9,1 (R9) 

NO. TRANSLATED 

LOOPE 

SR 

R9,R5 

NO. OF BYTES TRANSLATED-1 


LA 

R9,1 (R9) 

NO. TRANSLATED 


AR 

R5,R9 

POSITION TO THE NEXT BYTE 


SR 

R7,R9 

REMAIN TO TRANSLATE 

k 

BP 

EXTRE 

CONTINUE TO TRANSLATE 

k 



k 

NEXTE 

L 

13, SAVE 

RESTORE 13 


RETURN (14,12),RC=0 


k 



k 

k 




MDVEE 

MVC 

FPVDVALE-FPVD (0,R5), 

FPVDVALE-FPVD(R4) 

TRANE 

TR 

FPVDVALE-FPVD(0, R5), 

CPLAE 

TRTLE 

k 

TRT 

FPVDVALE-FPVD (0,R5), 

TBLLE 

kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk 

DECODE 

EQU 

k 

FUNCTION 

kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk 


LH 

R8, FPVDTYPE-FPVD (R5) 

GET FIELD DATA TYPE 


CH 

R8, =AL2 (FPVDTVCH) 

IS IT VAR CHARACTER ? 

k 

BE 

VCHD 

YES 


LH 

R7, FPVDVLEN-FPVD (R5) 

GET FIX CH FIELD LENGTH 


BCTR 

R7,0 

L-l 

k 

B 

DECP 

DECODE PROCEDURE 

VCHD 

EQU 

k 



LH 

R7, FPVDVALE-FPVD (R5) 

GET VAR CH FIELD LENGTH 


STH 

R7,FPVDVALE-FPVD(R4) 

STORE LENGTH INTO CVD 


BCTR 

R7,0 

L-l 


LA 

R4,2(R4) 

CONSIDER 2 BYTE FIELD LENGTH 


LA 

R5,2 (R5) 

CONSIDER 2 BYTE COLUMN LENGTH 

k 

k 

B 

DECP 

ENCODE PROCEDURE 


Figure 220 (Part 3 of 7). Field Procedure Sample 
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DECP 

EQU 

k 





EX 

R7, MOVED 

MOVE FIELD TO COLUMN 




EX 

R7,TRAND 

DECODE XLATE COLUMN 



EXTRD 

EX 

R7, TRTLD 

1ST BYTE MIXED & 2ND LOWER CASE 


BC 

8,NEXTD 

NO HIT, GO & GET NEXT FIELD 



LR 

R9,1 

SAVE HIT ADDRESS WITHIN FIELD 



STC 

R2,CLTLD+1 

FUNCTION BYTE TO CLI MASK 


CLILD 

CLI 

1(R9),X9009 

X9009 = EXPECTED 2ND BYTE 



BE 

FINDD 

CONTINUE WITH THE NEXT BYTE 



TRT 

0 (0,R9) ,TBLUD 

1ST BYTE UPPER & 2ND BUTE UPPER 


BC 

8,LOOPD 

NO HIT, GO FOR LOWER CASE 



STC 

R2,CLIUD+1 

FUNCTION BYTE TO CLI MASK 


CLIUD 

CLI 

1 (R9) ,X9009 

X9009 = EXPECTED 2ND BYTE 



BNE 

LOOPD 

GO FOR 2N BYTE IN LOWER CASE 


FINDD 

TR 

0 (0,R9) ,DBWTD 

GET WEIGHT FOR 1ST BYTE 




LA 

R9,1 (R9) 

NO. TRANSLATED 



LOOPD 

SR 

R9,R5 

NO. OF BYTES TRANSLATED- 

-1 



LA 

R9,1 (R9) 

NO. TRANSLATED 




AR 

R5,R9 

POSITION TO THE NEXT BYTE 



SR 

R7,R9 

REMAIN TO TRANSLATE 



■k 

BP 

EXTRD 

CONTINUE TO TRANSLATE 



NEXTD 

L 

13,SAVE 

RESTORE 13 




RETURN (14,12),RC=0 




~k 

MOVED 

MVC 

FPVDVALE-FPVD(0, R4), 

FPVDVALE-FPVD(R5) 



BRAND 

TR 

FPVDVALE-FPVD(0,R4), 

CPLAD 



TRTLD 

TRT 

FPVDVALE-FPVD(0, R4), 

TBLLD 



■k 


01234567 

8 9ABCDEF 



CPLAE 

DC 

X9000102030405060708090A0B0C0D0E0F9 

00 - 

OF 


DC 

X61 01:1121314151 6171 81 91A1B1 Cl PI F.1 FC 

10 - 

IF 


DC 

X9202122232425262728292A2B2C2D2E2F9 

20 - 

2F 


DC 

X9303132333435363738393A3B3C3D3E3F9 

30 - 

3F 


DC 

X940697A7CE17678868884554A655362479 

40 - 

4F 


DC 

X 9 5F94 9A9 8E 7A4 A6B2B0DC565C5D5 4 45AF 9 

50 - 

5F 


DC 

X943497B7D4C77798789856844614167489 

60 - 

6F 


DC 

X9BA959B99E8A5A7B3B18D46605A5166529 

70 - 

7F 


DC 

X9AE7480828A929C9EA0A2D6BE90F5D2DA9 

80 - 

8F 


DC 

X9BBA8AAACB6B8C0CACCCEB4BCD84F505B9 

90 - 

9F 


DC 

X97E4DD4DDE3EDEFF1F3F7D7BF91F6D3DB9 

A0 - 

AF 


DC 

X94E7FFDE2FE59FBF9FCFAB5BDD94B8C649 

B0 - 

BF 


DC 

X9577581838B939D9FA1A342C4C6D0C2C89 

CO - 

CF 


DC 

X958A9ABADB7B9C1CBCDCF97EBE9DFE5969 

DO - 

DF 


DC 

X95E63D5DEE4EEF0F2F4F88EC5C7D1C3C99 

E0 - 

EF 


DC 

X96A6B6C6D6E6F707172738FECEAE0E6FF9 

F0 - 

FF 

■k 

■k 


01234567 

8 9ABCDEF 




Figure 220 (Part 4 of 7). Field Procedure Sample 
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~k 

TBLUE 

DC 

16X9009 

00 - OF 


DC 

16X9009 

10 - IF 


DC 

16X9009 

20 - 2F 


DC 

16X9009 

30 - 3F 


DC 

16X9009 

40 - 4F 


DC 

16X9009 

50 - 5F 


DC 

16X9009 

60 - 6F 


DC 

16X9009 

70 - 7F 


DC 

16X9009 

70 - 7F 


DC 

16X9009 

90 - 9F 


DC 

16X9009 

90 - 9F 


DC 

16X9009 

90 - 9F 


DC 

16X9009 

CO - CF 


DC 

16X9009 

DO - DF 


DC 

16X9009 

E0 - EF 

k 

DC 

16X9009 

F0 - FF 

TBLLE 

DC 

16X9009 

00 - OF 


DC 

16X9009 

10 - IF 


DC 

16X9009 

20 - 2F 


DC 

16X9009 

30 - 3F 


DC 

16X9009 

40 - 4F 


DC 

16X9009 

50 - 5F 


DC 

16X9009 

60 - 6F 


DC 

16X9009 

70 - 7F 


DC 

16X9009 

70 - 7F 


DC 

16X9009 

90 - 9F 


DC 

16X9009 

90 - 9F 


DC 

16X9009 

90 - 9F 


DC 

16X9009 

CO - CF 


DC 

16X9009 

DO - DF 


DC 

16X9009 

E0 - EF 

"k 

DC 

16X9009 

F0 - FF 

DBWTE 

DC 

16X9009 

00 - OF 


DC 

16X9009 

10 - IF 


DC 

16X9009 

20 - 2F 


DC 

16X9009 

30 - 3F 


DC 

16X9009 

40 - 4F 


DC 

16X9009 

50 - 5F 


DC 

16X9009 

60 - 6F 


DC 

16X9009 

70 - 7F 


DC 

X9000000000000000000008C8D000000009 

80 - 8F 


DC 

16X9009 

90 - 9F 


DC 

X9000000000000000000000000000000009 

A0 - AF 


DC 

X 9000000000000000000000000000000009 

B0 - BF 


DC 

16X9009 

CO - CF 


DC 

16X9009 

DO - DF 


DC 

16X9009 

E0 - EF 

■k 

DC 

16X9009 

F0 - FF 


Figure 220 (Part 5 of 7). Field Procedure Sample 
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~k 


0123456789ABCDEF 


CPLAD 

DC 

X9000102030405060708090A0B0C0D0E0FC 

0 


DC 

X9101112131415161718191A1B1C1D1E1F<: 

1 


DC 

XC2.02122232425262728292A2B2C2D2E2FC 

2 


DC 

X9303132333435363738393A3B3C3D3E3FC 

3 


DC 

X9406DCA606B5E7A4F6F614BED64A1B09D9 

4 


DC 

XC 9E7D7F 4D5D4A5AC0D0B57C9F5B5CE05CK : 

5 


DC 

XC7B6C4F,F,1 BF4C7F.fiF.8A41 F0F1F2F3F4F5C 

6 


DC 

XCF6F7F8F981C14565466642624363A0B1C 

7 


DC 

X982C283C349694767486884C4BE79EAFA<: 

8 


DC 

XC8CAC85C55171DFDA5373527286C687C7C 

9 


DC 

X988C889C95575567691D192D293D3805FC 

A 


DC 

X9587857779ABA94D495D570909BBB8BAB<: 

B 


DC 

X996D6CEEECBEBCCECCFEF97D798D899D9< : 

C 


DC 

XCCDED8EAEA2E28AAA9CBC8FAF59A3E3DD9 

D 


DC 

XCFD4 4B3A4E4DEFE54 74DCFCDBFBA5E5A6< : 

E 


DC 

XCE6A7E7A8E88DADA9E9B7B9B6B8B2B4FF<: 

F 

~k 

■k 


0123456789ABCDEF 


■k 


CHECK FIRST MIXED SECOND LOWER 


■k 


0123456789ABCDEF 


TBLLD 

DC 

16XC00C 

0 


DC 

16XC00C 

1 


DC 

16XC00C 

2 


DC 

16XC00C 

3 


DC 

16XC00C 

4 


DC 

16XC00C 

4 


DC 

16X900<: 

6 


DC 

16XC00C 

6 


DC 

16XC00C 

6 


DC 

16X900<: 

6 


DC 

16XC00C 

A 


DC 

16XC00C 

A 


DC 

16XC00C 

C 


DC 

16X900<: 

D 


DC 

16XC00C 

E 


DC 

16XC00C 

F 

■k 

■k 


0123456789ABCDEF 


■k 


CHECK FIRST UPPER SECOND UPPER 


■k 


0123456789ABCDEF 


TBLUD 

DC 

16X900<: 

0 


DC 

16XC00C 

1 


DC 

16X900<: 

2 


DC 

16XC00C 

3 


DC 

16XC00C 

4 


DC 

16XC00C 

4 


DC 

16XC00C 

6 


DC 

16XC00C 

6 


DC 

16X900<: 

8 


DC 

16X900<: 

8 


DC 

16XC00C 

A 


DC 

16X900<: 

B 


DC 

16XC00C 

C 


Figure 220 (Part 6 of 7). Field Procedure Sample 
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DC 

16X9009 

D 


DC 

16X9009 

E 

■k 

~k 

■k 

■k 

DC 

16X9009 

0123456789ABCDEF 

DECODE DOUBLE BYTE VOWEL 

0123456789ABCDEF 

F 

DBWTD 

DC 

16X9009 

0 


DC 

16X9009 

1 


DC 

16X9009 

2 


DC 

16X9009 

3 


DC 

16X9009 

4 


DC 

X9000000000000000000000000000000D39 

5 


DC 

16X9009 

6 


DC 

X9950000000000000000C40000000000009 

7 


DC 

X9930000000000000000000000000000009 

8 


DC 

X9D50000000000000000000000000000009 

9 


DC 

16X9009 

A 


DC 

X9000000000000000000000000000084009 

B 


DC 

16X9009 

C 


DC 

16X9009 

D 


DC 

16X9009 

E 

■k 

"k 

DC 

16X9009 

0123456789ABCDEF 

F 

SAVE 

"k 

DS 

F SAVE AREA 


R0 

EQU 

0 


R1 

EQU 

1 


R2 

EQU 

2 


R3 

EQU 

3 


R4 

EQU 

4 


R5 

EQU 

5 


R6 

EQU 

6 


R7 

EQU 

7 


R8 

EQU 

8 


R9 

EQU 

9 


RIO 

EQU 

10 


Rll 

EQU 

11 


R12 

EQU 

12 


R13 

EQU 

13 


R14 

EQU 

14 


R15 

~k 

EQU 

15 



ARIBFPPB SQL/DS COPY MACRO 

END 


Figure 220 (Part 7 of 7). Field Procedure Sample 
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A.4 CDRA Conversion Tables Installation 


This appendix provides an example of how the conversion tables were installed 
in the VSE and VM systems. The conversion tables, the load programs and the 
jobs to load the tables are given. 

The DRDA connections via the 3174 and the 3745 are supplied. 

A.4.1 CDRA Conversion Table from 500 to 870 


000102030405060708090A0B0C0D0E0F 
101112131415161718191A1B1C1D1E1F 
202122232425262728292A2B2C2D2E2F 
303132333435363738393A3B3C3D3E3F 
404142434445464748494A4B4C4D4E4F 
505152535455565758595A5B5C5D5E5F 
60616263646566676869706B6C6D6E6F 
727174737775767880797A7B7C7D7E7F 
8A8182838485868788898B8C8E8D8F9A 
909192939495969798999B9C9E9DA09F 
AAA1A2A3A4A5A6A7A8A9ABAEACADAFB0 
B1B2B3B4B6B5B7B8B9BABB6ABCBDBEBF 
C0C1C2C3C4C5C6C7C8C9CACBCCCDCECF 
D0D1D2D3D4D5D6D7D8D9DADBDCDDDEDF 
E0E1E2E3E4E5E6E7E8E9EAEBECEDEEEF 
F0F1F2F3F4F5F6F7F8F9FAFBFCFDFEFF 


Figure 221. CDRA Conversion Table from 500 to 870 


A.4.2 CDRA Conversion Table from 870 to 500 


000102030405060708090A0B0C0D0E0F 
101112131415161718191A1B1C1D1E1F 
202122232425262728292A2B2C2D2E2F 
303132333435363738393A3B3C3D3E3F 
404142434445464748494A4B4C4D4E4F 
505152535455565758595A5B5C5D5E5F 
60616263646566676869BB6B6C6D6E6F 
6A7170737275767477797A7B7C7D7E7F 
78818283848586878889808A8B8D8C8E 
909192939495969798998F9A9B9D9C9F 
9EA1A2A3A4A5A6A7A8A9A0AAACADABAE 
AFB0B1B2B3B5B4B6B7B8B9BABCBDBEBF 
C0C1C2C3C4C5C6C7C8C9CACBCCCDCECF 
D0D1D2D3D4D5D6D7D8D9DADBDCDDDEDF 
E0E1E2E3E4E5E6E7E8E9EAEBECEDEEEF 
F0F1F2F3F4F5F6F7F8F9FAFBFCFDFEFF 


Figure 222. CDRA Conversion Table from 870 to 500 
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A.4.3 Sample Program to LOAD Conversion Tables under VM 


■k 

'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k 


* COBCCSID BEGIN PROGRAM * 

'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k 


IDENTIFICATION 

PROGRAM-ID. 

ENVIRONMENT 

CONFIGURATION 

INPUT-OUTPUT 

FILE-CONTROL. 

SELECT INPDATA 

SELECT INPCONV 
DATA 
FILE 


DIVISION. 

COBCCSID. 

DIVISION. 

SECTION. 

SECTION. 

ASSIGN TO 
ASSIGN TO 
DIVISION. 
SECTION. 


INPDATA. 

INPCONV. 


'k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-kk-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k 

* COBCCSID FILES DEFINITIONS * 

• k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k 


FD INPDATA 

LABEL RECORDS OMITTED 
RECORDING MODE F. 

01 DAT-INPDATA. 


05 

DAT-INCCSID 

PIC 

9(008) 

05 

DAT-OUTCCSID 

PIC 

9(008) 

05 

DAT-TRANSTYPE 

PIC 

X(002) 

05 

DAT-ERRORBYTE 

PIC 

X(001) 

05 

DAT-SUBTYPE 

PIC 

X(001) 

05 

DAT-TRANSPROC 

PIC 

X(008) 

05 

DAT-FILLER 

PIC 

X(052) 


FD INPCONV 

LABEL RECORDS STANDARD 
RECORDING MODE F. 

01 CON-INPCONV. 

05 CON-TRANSTAB1 PIC X(064). 

05 CON-TRANSTAB2 PIC X(192). 

k 

WORKING-STORAGE SECTION. 

k 

■k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k 

* COBCCSID WORKING STORAGE AREAS * 

■k'k'k'k'k'k'k'k'k'k'k'k'k-k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k-k-k'k-k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k-k 

k 


01 

DECODED-SQLCODE 

PIC — 

-9 

01 

DECODED-SQLERRD1 

PIC — 

-9 

01 

DECODED-SQLERRD2 

PIC — 

-9 


Figure 223 (Part 1 of 5). Conversion Table from 500 to 870 
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01 

WE^-INPDATA. 





05 WRK-INCCSID 

PIC 

9(008) . 



05 WRK-OUTCCS ID 

PIC 

9(008) . 



05 WRK-TRANSTYPE 

PIC 

X(002) . 



05 WRK-ERRORBYTE 

PIC 

X(001) . 



05 WRK-SUBTYPE 

PIC 

X(001) . 



05 WRK-TRANSPROC 

PIC 

X(008) . 



05 WRK-FTT.T.ER 

PIC 

X(052) . 


\ —1 
O 
-X 

WRK-INPCONV. 





05 WRK-TRANSTAB1 

PIC 

X(064) . 



05 WRK-TRANSTAB2 

PIC 

X(192) . 


'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k 

■k 

COBCCSID HOST VARIABLES DECLARATIONS 

■ k 

■k-k-k'k'k'k-k'k-k-k'k-k-k-k-k'k'k-k-k-k-k-k'k-k'k-k'k'k'k'k'k-k'k-k'k-k'k-k'k-k'k-k'k-k'k-k'k'k-k-k'k'k'k-k'k-k-k-k-k-k-k-k-k-k-k 


EXEC SQL BEGIN 

DECLARE SECTION 

END-EXEC. 

01 

SYS-INCCSID 

PIC 

S9 (08) COMP 

VALUE +0. 

01 

SYS-OUTCCSID 

PIC 

S9 (08) COMP 

VALUE +0. 

01 

SYS-TRANSTYPE 

PIC 

X(002) 

VALUE SPACES. 

01 

SYS-ERRORBYTE 

PIC 

X(001) 

VALUE SPACES. 

01 

SYS-SUBTYPE 

PIC 

X(001) 

VALUE SPACES. 

01 

SYS-TRANSPROC 

PIC 

X(008) 

VALUE SPACES. 

01 

SYS-TRANSTAB1 

PIC 

X(064) 

VALUE SPACES. 

01 
' k 

SYS-TRANSTAB2 

PIC 

X(192) 

VALUE SPACES. 

* 

O 

I — 4 

WS-USERID 

PIC 

X(08) 

VALUE CSQLDBA 9. 

* 

o 

I — 4 

WS-PASSWORD 

PIC 

X(08) 

VALUE CSQLDBAPWC. 


EXEC SQL END 

DECLARE SECTION 

END-EXEC. 


EXEC SQL INCLUDE 

SQLCA 

END-EXEC. 

'k'k'k'k'k'k'k-k'k'k-k'k'k'k'k-k'k'k-k-k'k'k-k-k'k'k-k-k'k'k-k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k 

:k 

COBCCSID EXECUTION BEGIN 


■ k 

:k'k'k'k'k'k'k'k'k'k'k'k'k'k'k’k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k 

PROCEDURE DIVISION. 




DISPLAY CCOBCCSID EXECUTION BEGIN9 



UPON CONSOLE 




EXEC SQL WHENEVER NOT FOUND 

CONTINUE 


END-EXEC. 





EXEC SQL WHENEVER SQLWARNING 

CONTINUE 


END-EXEC. 





EXEC SQL WHENEVER SQLERROR 

CONTINUE 

:k 

END-EXEC. 





Figure 223 (Part 2 of 5). Conversion Table from 500 to 870 
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'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k 

* CONNECT THE SQLDBA USERID * 

■k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k-k'k'k'k'k-k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k 


EXEC SQL 

CONNECT 

:WS-USERID 


IDENTIFIED BY 

:WS-PASSWORD 

END-EXEC. 

■Jr 



IF SQLCODE 

< 0 


GO TO 

■Jr 

COBCCSID-SQIOHK. 


'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k 

* OPEN INPUT DATA FILE 

■Jr 


COBCCSID-OPEN- 

INPDATA. 


OPEN INPUT 

■Jr 

INPDATA. 


SQLPEDIT-READ- 

INPDATA. 


READ 

INPDATA 

INTO WEIK-INPDATA 

AT END 



GO TO 

•Jr 

COBCCSID-DATCHK. 

SQLPEDIT-MDVE- 

INPDATA. 


MOVE 

1ARK-INCCSID 

TO SYS-INCCSID. 

MOVE 

WRK-OUTCCSID 

TO SYS-OUTCCSID. 

MOVE 

V\RK-TRANSTYPE 

TO SYS-TRANSTYPE. 

MOVE 

WE^K-ERRORBYTE 

TO SYS-ERROFBYTE. 

MOVE 

WFK-SUBTYPE 

TO SYS-SUBTYPE. 

MOVE 

WE^K-TRANSPROC 

TO SYS-TRANSPROC. 


COBCCSID-CLOSE-INPDATA. 

CLOSE INPDATA. 

■Jr 

■k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k-k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k 

* OPEN INPUT CONV FILE * 

'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k 


COBCCSID-OPEN-INPCONV. 

OPEN INPUT INPCONV. 


SQLPEDIT-READ-INPCONV. 
READ INPCONV 
AT END 
GO TO 


INTO WRK-INPCONV 
COBCCSID-CONCHK. 


SQLPEDIT-MOVE-INPCONV. 

MOVE V\RK-TRANSTAB1 TO SYS-TRANSTAB1. 

MOVE WRK-TRANSTAB2 TO SYS-TRANSTAB2. 


COBCCSID-CLOSE-INPCONV. 

CLOSE INPCONV. 


Figure 223 (Part 3 of 5). Conversion Table from 500 to 870 
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kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk 

* DELETE EXISTING CONVERSION CCSID TABLE RECORD * 

kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk 

COBCCSID-DELETE-CCSID-RECORD. 


EXEC SQL 

DELETE 


FROM 

SYSTEM.SYSSTRINGS 


WHERE 

INCCSID = :SYS-INCCSID 


AND 

OUTCCSID = :SYS-OUTCCSID 


END-EXEC. 



IF SQLCODE 

< 0 


GO TO 

COBCCSID-SQLCHK. 


kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk 

* INSERT NEW CONVERSION CCSID TABLE RECORD 

k 

kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk 

COBCCSID-INSERT-CCSID-RECORD. 


EXEC SQL 

INSERT 


INTO 

SYSTEM. SYSSTRINGS 


VALUES 

( 

:SYS-INCCSID, 

:SYS-OUTCCSID, 

:SYS-TRANSTYPE, 

NULL, 

NULL, 

:SYS-TRANSPROC, 

:SYS-TRANSTAB1, 

:SYS-TRANSTAB2 


END-EXEC. 

) 


IF SQLCODE 

< 0 


GO TO 

COBCCSID-SQLCHK. 


GO TO 

k 

COBCCSID-SQLCHK. 

COBCCSID-ENDPROG. 


MOVE 

SQLCODE 

TO DECODED-SQLCODE 

DISPLAY 

CSQLCODE = <? 

DECODED-SQLCODE 

UPON 

CONSOLE. 


MOVE 

SQLERRD(1) 

TO DECODED-SQLERRD1 

DISPLAY 

CSQLERRD1 = $ 

DECODED-SQLERRD1 

UPON 

CONSOLE. 


MOVE 

SQLERRD(2) 

TO DECODED-SQLERRD2 

DISPLAY 

CSQLERRD2 = C 

DECODED-SQLERRD2 

UPON 

k 

CONSOLE. 



Figure 223 (Part 4 of 5). Conversion Table from 500 to 870 
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WHENEVER SQLERROR 


CONTINUE 


212 


EXEC SQL 
END-EXEC. 
EXEC SQL 
END-EXEC. 


ROLLBACK WORK RELEASE 


DISPLAY 

UPON 


CCOBCCSID EXECUTION CANC ELED <: 
CONSOLE 


GOBACK. 

k 

COBCCSID-DATCHK. 


DISPLAY 

UPON 


CREAD ERROR FOR INPDATA FILEC 
CONSOLE. 


EXEC SQL 
END-EXEC. 
EXEC SQL 
END-EXEC. 


WHENEVER SQLERROR 
ROLLBACK WORK RELEASE 


CONTINUE 


DISPLAY 

UPON 


CCOBCCSID EXECUTION CANC ELED <: 
CONSOLE 


GOBACK. 

k 

COBCCSID-CONCHK. 


DISPLAY 

UPON 


CREAD ERROR FOR INPCONV FILEC 
CONSOLE. 


EXEC SQL 
END-EXEC. 
EXEC SQL 
END-EXEC. 


WHENEVER SQLERROR 
ROLLBACK WORK RELEA SE 


CONTINUE 


DISPLAY 

UPON 


CCOBCCSID EXECUTION CANC ELED <: 
CONSOLE 


GOBACK. 

k 

COBCCSID-ENDPROG. 


EXEC SQL 
END-EXEC. 


COMMIT WORK RELEA SE 


DISPLAY 

UPON 


CCOBCCSID EXECUTION ENDC 
CONSOLE. 


MOVE 


0 


TO RETURN-CODE. 


GOBACK. 


•k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k 

* COBCCSID END PROGRAM * 


■k'k'k-k'k-k-k-k-k-k'k-k'k'k'k-k-k-k-k-k-k-k'k-k-k-k'k-k-k-k'k'k'k-k'k-k'k-k-k'k'k'k'k-k'k-k-k-k'k'k'k-k'k-k-k-k'k'k'k-k'k-k-k'k-k 


Figure 223 (Part 5 of 5). Conversion Table from 500 to 870 
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A.4.4 Loading Conversion Tables under VM 


^■k'k'k-k'k-k'k'k'k'k-k'k-k-k'k'k'k-k'k'k'k-k'k'k'k-k'k'k'k'k'k-k'k-k'k'k'k-k'k'k'k-k'k'k'k-k'k-k'k-k'k'k'k-k'k'k'k'k'k'k'k-k'k'k'k'k'k'k^ 

/* COBCCSID EXEC TO EXECUTE THE COBCCSID PROGRAM 

*/ 


/* DEPENDENCIES: 


*/ 

/* 


1) SQL/DS SQLDBA USERID WITH DBA AUTHORITY 

*/ 

^ -k-k-k-k-k-k-k-k ~k-k-k-k-k-k-k-k-k-k-k-k-k-k-k ~k-k ~k-k-k-k-k-k-k-k-k-k ~k-k-k ~k-k-k ~k ~k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k j 

TRACE OFF 



ARG 

ccsidn; 



GLOBAL 

TXTLIB 

VSC2CTXT VSC2LTXT VSC29TXT SQLXLIB 


9FILEDEF 

INPDATA 

DISK CccsidnC INPDATA A (RECFM F IRECL 

-o 

o 

00 

o 

9FILEDEF 

INPCONV 

DISK CccsidnC INPCONV A (RECFM V IRECL 256) 9 

9LOAD 

COBCCSID 

(START NCMAPK 


saverc = 

rc 



EXIT 

saverc 




Figure 224. Loading Conversion Tables under VM 


A.4.5 Loading Conversion Tables under VSE 


* $$ JOB JNM=COBCCSID, CLASS=0,DISP=D,PRI=3 

* $$ LST CLASS=B,DISP=D,PRI=3,DEST=(*, LUCIANO) 

* $$ PUN CLASS=B, DISP=D,PRI=3,DEST= (*, LUCIANO) 

// JOB COBCCSID PROCESS 00370870 CONV 

// LIBDEF 

*,SEARCH=(PRD2.PROD,PRD2.SQL350,PRD3.APPL) 

// ASSGN 

SYS004,SYSRDR 

/* ASSGN 

SYS005,DISK,VOL=SYSWK1, SHR 

// ASSGN 

SYS005,E01 

// DLBL 

INPCONV,9CCSID.0037.0870.CONVC,, SD 

// EXTENT 

SYS005,SYSWK1 

// EXEC 

COBCCSID,SIZE=AUTO 

0000003700000870SS 

/* 

/& 

* $$ EOJ 



Figure 225. Loading Conversion Tables under VSE 
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A.4.6 Sample Program to LOAD Conversion Tables under VSE 


* $$ JOB JNM=COBCCSID,CLASS=0,DISP=D,PRI=3 

* $$ LST CLASS=B,DISP=D,PRI=3,DEST=(*,LUCIANO) 

* $$ PUN DISP=I, PRI=9, CLASS=A 

// JOB COBCCSJ1 SQL/DS PRE-PROCESS EDIT PACKAGE PROGRAM 
// LIBDEF *,SEARCH=(PRD2.PROD,PRD2.SQL350),CATAL0GNPRD3 .APPL 
// ASSGN SYS005,SYSRDR 

// EXEC IESINSRT 

$ $$ LST CLASS=B,DISP=D,PRI=3,DEST= (*,LUCIANO) 

// JOB COBCCSJ2 COBOL CCMPILE/LINK EDIT PACKAGE PROGRAM 
// LIBDEF *,SEARCH=(PRD2.PROD,PRD2.SQL350),CATAL0G=PRD3.APPL 
// OPTION ERRS,SXREF,SYM,CATAL,NODECK 
PHASE COBCCSID,* 

MDDE AMDDE (24) 

INCLUDE ARIPRDID 

INCLUDE ARIPADR4 

/* EXEC FCOBOL,SIZE=400K 

// EXEC IGYCRCTL,SIZE=IGYCRCTL 

CBL LIB,APOST,NOADV 

* $$ END 

//ON $ CANCEL OR $ABEND GOTO ENDJ2 
// OPTION NOLIST,NODUMP,DECK 

// EXEC ARIPRPC, SIZE=AUTO,PARM=< : USER=SQLDBA/SQLDBAPW, C 

PREPCOBCCSID, BLOCK, ISOLATION (CS),KEEP,DBNAME=SQLVSDB1 C 

k 

'k'k'kk'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k-k'k'k'k'k'k'k'k-k'k'k'k'k'k'k'k-k'k'k'k'k'k'k 

* COBCCSID BEGIN PROGRAM * 

kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk 

k 

IDENTIFICATION DIVISION. 

PROGRAM-ID. COBCCSID. 

ENVIRONMENT DIVISION. 

CONFIGURATION SECTION. 

INPUT-OUTPUT SECTION. 

FILE-CONTROL. 

S ELE CT INPDATA ASSIGN TO INPDATA. 

SELECT INPCONV ASSIGN TO INPCONV. 

DATA DIVISION. 

FILE SECTION. 

k 

kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk 

* COBCCSID FILES DEFINITIONS * 

kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk 

k 

FD INPDATA 

LABEL RECORDS CMITTED 
RECORDING MODE F. 

Figure 226 (Part 1 of 6). Sample COBCCSID Installation Program 
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01 

DAT-INPDATA. 






05 DAT-INCCSID 

PIC 

9(008) . 




05 DAT-OUTCCSID 

PIC 

9(008) . 




05 DAT-TRANSTYPE 

PIC 

X(002) . 




05 DAT-ERRORBYTE 

PIC 

X(001) . 




05 DAT-SUBTYPE 

PIC 

X(001) . 




05 DAT-TRANSPROC 

PIC 

X(008) . 




05 DAT-FILLER 

PIC 

X(052) . 



FD 

INPCONV 






LABEL RECORDS STANDARD 





RECORDING MODE F. 





01 

CON-INPCONV. 






05 CON-TRANSTAB1 

PIC 

X(064) . 




05 CON-TRANSTAB2 

PIC 

X(192) . 



WORKING-STORAGE SECTION. 




'k-k'k'k'k'k'k-k'k'k'k'k'k-k'k'k'k-k'k'k'k-k'k-k'k-k'k-k'k'k'k-k'k'k'k'k'k-k'k-k'k-k'k-k'k-k'k-k'k-k'k-k'k-k'k-k'k-k'k'k'k'k'k'k'k 

~k 

COBCCSID WORKING STORAGE AREAS 


■k 

■k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k 

01 

DECODED-SQLCODE 

PIC 

-9. 



01 

DECODED-SQLERRD1 

PIC 

-9. 



01 

DECODED-SQLERRD2 

PIC 

-9. 



01 

WRK-INPDATA. 






05 WRK-INCCSID 

PIC 

9(008) . 




05 WRK-OUTCCSID 

PIC 

9(008) . 




05 WRK-TRANSTYPE 

PIC 

X(002) . 




05 WRK-ERRORBYTE 

PIC 

X(001) . 




05 WRK-SUBTYPE 

PIC 

X(001) . 




05 WRK-TRANSPROC 

PIC 

X(008) . 




05 WRK-FILLER 

PIC 

X(052) . 



01 

WRK-INPCONV. 






05 WRK-TRANSTAB1 

PIC 

X(064) . 




05 WRK-TRANSTAB2 

PIC 

X(192) . 



'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k 

■k 

COBCCSID HOST VARIABLES DECLARATIONS 


■k 

■k-k'k-k-k-k'k'k-k-k'k-k-k-k-k-k-k-k'k-k-k'k'k-k-k-k'k-k-k-k'k-k'k-k'k-k-k'k'k-k-k-k'k-k-k-k-k-k-k-k-k-k'k-k-k-k-k-k-k-k-k-k-k-k'k 


EXEC SQL BEGIN 

DECLARE SECTION 

END-EXEC. 


01 

SYS-INCCSID 

PIC 

S9 (08) CCMP 

VALUE +0. 


01 

SYS-OUTCCSID 

PIC 

S9 (08) CCMP 

VALUE +0. 


01 

SYS-TRANSTYPE 

PIC 

X(002) 

VALUE SPACES. 


01 

SYS-ERRORBYTE 

PIC 

X(001) 

VALUE SPACES. 


01 

SYS-SUBTYPE 

PIC 

X(001) 

VALUE SPACES. 


01 

SYS-TRANSPROC 

PIC 

X(008) 

VALUE SPACES. 


01 

SYS-TRANSTAB1 

PIC 

X(064) 

VALUE SPACES. 


01 
■ k 

SYS-TRANSTAB2 

PIC 

X(192) 

VALUE SPACES. 
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k 

01 WS-USERID 

PIC X(08) 

VALUE C SQLDBA <:. 

01 WS-PASSWORD 

k 

PIC X(08) 

VALUE CSQLDBAPWC. 

EXEC SQL 

END DECLARE SECTION 

END-EXEC. 

EXEC SQL 

■Jc* 

INCLUDE SQLCA 

END-EXEC. 

'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k-k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k 

* COBCCSID EXECUTION BEGIN 

k 

kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk 

PROCEDURE 

k 

DIVISION. 


DISPLAY 

CCOBCCSID EXECUTION BEGINS 


UPON 

k 

CONSOLE 


EXEC SQL 
END-EXEC. 

WHENEVER NOT FOUND 

CONTINUE 

EXEC SQL 
END-EXEC. 

WHENEVER SQLWARNING 

CONTINUE 

EXEC SQL 

WHENEVER SQLERROR 

CONTINUE 

END-EXEC. 

4- 



'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k’k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k 

* CONNECT THE 

SQLDBA USERID 

k 

kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk 

EXEC SQL 

CONNECT 

:WS-USERID 


IDENTIFIED BY 

:WS-PASSWORD 

END-EXEC. 



IF SQLCODE 

< 0 


GO TO 

k 

COBCCSID-SQLCHK. 


kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk 

* OPEN INPUT DATA FILE 

k 


COBCCSID-OPEN-INPDATA. 


OPEN INPUT 

k 

INPDATA. 


SQLPEDIT-READ-INPDATA. 


READ 

INPDATA 

INTO WRK-INPDATA 

AT END 



GO TO 

k 


COBCCSID-DATCHK. 

SQLPEDIT-MDVE-INPDATA. 


MOVE 

WRK-INCCSID 

TO SYS-INCCSID. 

MOVE 

WRK-OUTCCSID 

TO SYS-OUTCCSID. 

MOVE 

WRK-TRANSTYPE 

TO SYS-TRANSTYPE. 

MOVE 

WRK-ERRORBYTE 

TO SYS-ERRORBYTE. 

MOVE 

WRK-SUBTYPE 

TO SYS-SUBTYPE. 

MOVE 

k 

WRK-TRANSPROC 

TO SYS-TRANSPROC. 

COBCCSID-CLOSE-INPDATA. 


CLOSE 

INPDATA. 



Figure 226 (Part 3 of 6). Sample COBCCSID Installation Program 
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■Jr 

■k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k 

* OPEN INPUT CONV FILE 

■Jr 

'k-k-k-k-k-k-k-k-k-k-k-k'k-k-k-k-k-k-k-k-k-k-k-k-k-k'k-k-k-k-k-k-k-k-k-k-k-k-k-k-k'k-k-k-k-k-k-k-k'k'k-k-k-k-k-k-k-k-k-k-k-k-k-k'k 

COBCCSID-OPEN-INPCONV. 


OPEN INPUT 

■Jr 

INPCONV. 


SQLPEDIT-READ-INPCONV. 


READ INPCONV 


INTO WRK-INPCONV 

AT END 



GO TO 

■Jr 


COBCCSID-CONCHK. 

SQLPEDITUMDVE-INPCONV. 


MOVE 

WRK-TRANSTAB1 

TO SYS-TRANSTAB1. 

MOVE 

■Jr 

WRK-TRANSTAB2 

TO SYS-TRANSTAB2. 

COBCCSID-CLOSE-INPCONV. 


CLOSE 

•Jr 

INPCONV. 


'k'k'k-k'k'k'k'k'k-k-k'k'k'k'k'k'k'k'k-k'k'k'k-k'k-k-k-k-k'k'k-k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k 

* DELETE EXISTING CONVERSION CCSID TABLE RECORD * 

'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k 

COBCCSID-DELETE-CCSID-RECORD. 

■Jr 


EXEC SQL 

DELETE 


FROM 

SYSTEM.SYSSTRINGS 


WHERE 

INCCSID = :SYS-INCCSID 


AND 

OUTCCSID = :SYS-OUTCCSID 


END-EXEC. 

■Jr 



IF SQLCODE < 

0 


GO TO 

■Jr 

COBCCSID-SQLCHK. 


'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k-k’k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k 

* INSERT NEW CONVERSION CCSID TABLE RECORD 

■Jr 

'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k 

COBCCSID-INSERT-CCSID-RECORD. 

•Jr 


EXEC SQL 

INSERT 


INTO 

SYSTEM.SYSSTRINGS 


VALUES 

( 

SYS-INCCSID, 

SYS-OUTCCSID, 

SYS-TRANSTYPE, 

NULL, 

NULL, 

SYS-TRANSPROC, 

SYS-TRANSTAB1, 

SYS-TRANSTAB2 


) 

END-EXEC. 




Figure 226 (Part 4 of 6). Sample COBCCSID Installation Program 
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IF SQLCODE 

< 0 



GO TO 

COBCCSID-SQLCHK. 



GO TO 

COBCCSID-ENDPROG. 



COBCCSID-SQLCHK. 




MOVE 

SQLCODE 

TO DECODED-SQLCODE 


DISPLAY 

CSQLCODE = C 

DECODED-SQLCODE 


UPON 

CONSOLE. 



MOVE 

SQLERRD (1) 

TO DECODED-SQLERRD1 


DISPLAY 

CSQLERRD1 = $ 

DECODED-SQLERRD1 


UPON 

CONSOLE. 



MOVE 

SQLERRD(2) 

TO DECODED-SQLERRD2 


DISPLAY 

CSQT.FRRD2 = <: 

DECODED-SQLERRD2 


UPON 

CONSOLE. 



EXEC SQL 
END-EXEC. 

WHENEVER SQLERROR 

CONTINUE 


EXEC SQL 

ROLLBACK WORK RELEASE 



END-EXEC. 




DISPLAY 

CCOBCCSID EXECUTION CANCELED^ 


UPON 

CONSOLE 



GOBACK. 




COBCCSID-DATCHK. 




DISPLAY 

CREAD ERROR FOR INPDATA FILEC 


UPON 

CONSOLE. 



EXEC SQL 

END-EXEC. 

WHENEVER SQLERROR 

CONTINUE 


EXEC SQL 

ROLLBACK WORK RELEASE 



END-EXEC. 




DISPLAY 

CCOBCCSID EXECUTION CANCELED^ 


UPON 

CONSOLE 



GOBACK. 




COBCCSID-CONCHK. 




DISPLAY 

CREAD ERROR FOR INPCONV FILEC 


UPON 

CONSOLE. 



EXEC SQL 
END-EXEC. 

WHENEVER SQLERROR 

CONTINUE 


EXEC SQL 

ROLLBACK WORK RELEASE 


■k 

END-EXEC. 




Figure 226 (Part 5 of 6). Sample COBCCSID Installation Program 
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A.4.7 Loading Conversion Tables under VSE 


* $$ JOB JNM=COBCCSID, CLASS=0,DISP=D,PRI=3 

* $$ LST CLASS=B,DISP=D,PRI=3,DEST=(*,LUCIANO) 

* $$ PUN CLASS=B,DISP=D,PRI=3,DEST=(*,LUCIANO) 

// JOB COBCCSID PROCESS 05000870 CONV 

// LIBDEF *,SEARCH=(PRD2.PROD,PRD2.SQL350,PRD3.APPL) 

// ASSGN SYS004,SYSRDR 

// ASSGN SYS005,181 

// TLBL INPCONV 

// EXEC COBCCSID,SIZE=AUTO 

0000050000000870SS 

/* 

/& 

* $$ EOJ 


Figure 227. Loading Conversion Tables under VSE 


A.4.8 Preprocessing Sample Conversion Program under VM 


/'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k/ 

/* COBCPREP EXEC TO PREPROCESS COBCCSID AND SQLPEXPL PROGRAMS */ 

/'k-k'k'k-k-k-k-k-k-k-k-k-k-k-k'k'k'k'k-k'k'k'k'k'k-k-k-k-k-k'k'k'k'k'k'k'k'k'k'k-k'k'k'k'k'k-k'k'k'k'k'k-k-k-k'k'k-k'k'k'k'k'k'k'k'k'k'k/ 

TRACE OFF 

/'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k/ 

/* PREPROCESS THE COBCCSID PROGRAM */ 

/-k'k'k'k'k'k'k'k-k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k-k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k/ 

CEXEC SQLPREP COB PP (PREP=COBCCSID,USER=SQLDBA/SQLDBAPW,CCSIDS (500)) 


SYSIN 

(COBCCSID COBSQL 

Al) 

SYSPRINT 

(COBCCSID PRPLIST 

Al) 

SYSPUNCH 

(COBCCSID COBOL 

AIK 


CCOBOL2 COBCCSID (APOSTC 
CERASE COBCCSID PRPLISTC 
CERASE COBCCSID LISTINGS 
CERASE COBCCSID COBOLC 
EXIT 


Figure 228. Preprocessing Sample Conversion Program under VM 
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A.4.9 Connection via 3174 for ITSO and ZPIZ 


DEFINE_LOCAL_CP FQ_CP_NAME (DEIBMIPF. IPFCP2 OE) 

DESCRIPTION (LOCAL NODE FOR IPFL3174 VIA 3174) 

CP_ ATjIA S (IPFCP20E) 

NAU_ADDRESS(INDEPENDENT_LU) 

NODE_TYPE (EN) 

NODE_ID(XC05DE000EC) 

NW_FP_SUPPORT(NONE) 

HOST_FP_SUPPORT (YES) 

MAX_CCMP_LEVEL (NONE) 

MAX_CCMP_TOKENS(0); 

DEFINE_LOGICAL_LINK LINK_NAME(LINK0001) 

DESCRIPTION(VIA 3174) 

ADJACENT_NODE_TYPE (NN) 

PREFERRED_NN_SERVER(NO) 

DLC_NAME (IBMIRNET) 

ADAPTER_NUMBER(0) 

DESTINATIONADDRESS (XC40002020100104<:) 
ETHERNET_FORMAT (NO) 

CP_CP_SESSION_SUPPORT(YES) 

ACTIVATE_AT_STARTUP(YES) 

LIMITED_RESOURCE(NO) 

LINK_STATION_ROLE(USE_ADAPTER_DEFINITION) 
SOLICIT_SSCP_SESSION(YES) 

MAX_ACTIVATION_ATTEMPTS(USE_ADAPTER_DEFINITION) 
USE_PUNAME_AS_CPNAME(NO) 

EFFECTIVEjOAPACITY(USE_ADAPTER_DEFINITION) 
COST_PER_CONNECT_TIME(USE_ADAPTER_DEFINITION) 
COST_PER_BYTE(USE_ADAPTER_DEFINITION) 

SECURITY(USE_ADAPTER_DEFINITION) 
PROPAGATION_DELAY(USE_ADAPTER_DEFINITION) 
USER_DEFINED_1 (USE_ADAPTER_DEFINITION) 
USER_DEFINED_2 (USE_ADAPTER_DEFINITION) 
USER_DEFINED_3 (USE_ADAPTER_DEFINITION); 


Figure 229 (Part 1 of 4). DRDA Connection via 3174 for ITSO and ZPIZ 
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DEFINE_LOGICAL_LINK LINK_NAME(HOSTOOOl) 

FQJ^JACENT_CP_NAME (DEIBMIPF. IPF ) 
ADJACENTJNDDE_TYPE (LEN) 

DLC_NAME(IBMIRNET) 

ADAPTER_NUMEER(0) 

DESTINATIONADDRESS (XC40001030100104<:) 
ETHERNET_FORMAT (NO) 

CP_CP_SESSION_SUPPORT(NO) 

ACTIVATE_AT_STARTUP(YES) 

LIMITED_RESOURCE(USE_ADAPTER_DEFINITION) 
LINK_STATION_ROLE(USE_ADAPTER_DEFINITION) 
SOLICIT_SSCP_SESSION(YES) 

PUJSAME (IPFP100B) 

NODE_ID(XC05DE000BC) 

MAX_ACTIVATION_ATTEMPTS(USE_ADAPTER_DEFINITION) 
USE_PUNAME_AS_CPNAyE (NO) 

EFFECTIVEjCAPACITY(USE_ADAPTER_DEFINITION) 
COST_PER_CONNECT_TIME(USE_ADAPTER_DEFINITION) 
COST_PER_BYTE(USE_ADAPTER_DEFINITION) 

SECURITY(USE_ADAPIER_DEFINITION) 
PROPAGATION_DELAY(USE_ADAPTER_DEFINITION) 
USER_DEFINED_1 (USE_ADAPTER_DEFINITION) 
USER_DEFINED_2(USE_ADAPIER_DEFINITION) 
USER_DEFINED_3(USE_ADAPIER_DEFINITION); 

DEFINE_LOCAL_LU LU_NAME(IPFCLOEO) 

DESCRIPTION(AVSVM GATEWAY) 

LU_ALIAS(IPF3174 ) 

NAU_ADDRESS(INDEPENDENT_LU); 

DEFINE_PARTNER_LU FQ_PARTNER_LU_NAME(DEIHYTPF.IPFA2GL4) 

DESCRIPTION (ITSO 3174 VM SQL/DS) 

PARTNER_LU_ALIAS(BOEVMIS2) 
PARTNERJLUJJNINTERPRETEDJSlAyE (IPFA2GL4) 
MAXjyq_LL_SEND_SIZE(32767) 
CONV_SECURITY_VERIFICATION(NO) 
PARALLEL_SESSION_SUPPORT(YES); 

DEFINE_PARTNER_LU FQ_PARTNER_LU_NAME(DEIHYTPF.IPFA21CD) 

DESCRIPTION (ITSO 3174 VSE SQL/DS) 

PARTNER_LU_ALIAS(VSEANL13) 
PARTNERJ7UJJNINTERPRETEDJSIAYE (IPFA21CD) 
IYAX_MC_LL_SEND_SIZE (32767) 
CONV_SECURITY_VERIFICATION(YES) 
PARALLEL_SESSION_SUPPORT(YES); 

DEFINE_PARTNER_LU FQ_PARTNER_LU_NAME(SIZPIZOO.Z00AVSL1) 

DESCRIPTION (ZPIZ 3174 VM SQL/DS) 

PARTNER_LU_ALIAS(Z00VM317) 
PARTNERJ7UJJNINTERPRETEDJSAME (Z00AVSL1) 
MAX_MC_LL_SEND_SIZE(32767) 
CONV_SECURITY_VERIFICATION(NO) 
PARALLEL_SESSION_SUPPORT(YES); 
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DEFINE_PARTNER_LU FQ_PARTNER_LU_NAME(SIZPIZOO.Z00CICS4) 
DESCRIPTION(ZPIZ 3174 VSE SQL/DS) 
PARTNERJIUALIAS(Z00VS317) 

PARTNKR_TI J_J NTNTFRPRF. TED _NAMF. (Z00CICS4) 
MAXjyq_LL_SEND_SIZE(32767) 
CONV_SECURITY_VERIFICATION(YES) 

PAR AT,TEli _SF,SSTON_SnPPORT (YES); 

DEFINE_PARTNER_LU FQJ?ARTNER_LU_NAME (DEIBMIPF. IPF ) 
PARTNER_LU_ALIAS(IPF) 

PARTNFR_T17_JNTNTFRPRF. TFD _NAMF. (IPF ) 

MAXjyq_LL_SEND_SIZE(32767) 
CONV_SECURITY_VERIFICATION(NO) 
PARALLEL_SESSION_SUPPORT(YES); 

DEFINE_PARTNER_LU_LOCATION FQ_PARTNER_LU_NAME(DEIBMIPF.IPF ) 

WILDCARD_ENTRY (NO) 

FQJDWNING_CP_NAME(DEIBMIPF.IPF ) 

LOCAL_NODE_NN_SERVER(NO); 

DEFINE_MODE MODE_NAME(IBMRDBM ) 

DESCRIPTION(ITSO IBMRDBM) 

COS_NAME(#CONNECT) 

DEFAULT_RU_SIZE(YES) 

RECEIVE_PACINGJ4INDOW (4) 
MAX_NEGOTIABLE_SESSION_LIMIT(32767) 
PLU_MODE_SESSION_LIMIT(20) 

MINjSONWINNERS_SOURCE(10) 

CCMPRESSION_NEED(PROHIBITED) 

PLU_SLU_CCMPRESSION(NONE) 

SLU_PLU_CCMPRESSION(NONE); 

DEFINEJVDDE MODE_NAME(IBMRDB ) 

DESCRIPTION(ZPIZ IBMRDB) 

COS_NAME(#CONNECT) 

DEFAULT_RU_SIZE(YES) 

RECEIVE_PACINCJ4INDOW (4) 
MAX_NEGOTIABtE_SESSION_LIMIT(32767) 
PLU_M3DE_SESSION_LIMIT(20) 

MINjSONWINNERS_SOURCE(10) 

CCMPRESSION_NEED(PROHIBITED) 

PLU_SLU_CCMPRESSION(NONE) 

SLU_PLU_CCMPRESSION(NONE); 

DEFINE_DEFAULTS IMPLICIT_INBOUND_PLU_SUPPORT (YES) 
DEFAULT_MODE_NAME(BLANK) 

DEFAULT_LOCAL_LU_ALIAS(IPF3174 ) 
MAX_MS_LL_SEND_SIZE(32767) 
DIRECTORY_FOR_INBOUND_ATTACHES(*) 
DEFAULT_TP_OPERATION(NONQUEUED_AM_STARTED) 
DEFAULT_TP_PROGRAM_TYPE(BACKGROUND) 
DEFAULT_TP_CONV_SECURITY_RQD(NO) 

MAX_HELD_ALERTS(10); 


Figure 229 (Part 3 of 4). DRDA Connection via 3174 for ITSO and ZPIZ 
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DEFINE_CPIC_SIDE_INFO SYMBOLIC_DESTINATION_NAME (IPFVM1S4) 

DESCRIPTION (ITSO 3174 VM SQL - SQLVMDBO) 
PARTNER_LU_ALIAS(BOEVMIS2 ) 

MODE_NAME (IBMRDBM ) 

TP_NAME(SQLVMDBO); 

DEFINE_CPIC_SIDE_INFO SYMBOLIC_DESTINATION_NAME(IPFVS1S4) 

DESCRIPTION (ITSO 3174 VSE SQL - SQLVSDB1) 
PARTNER_LU_ALIAS(VSEANL13 ) 

MODE_NAME (IHMRDHM ) 

TP_NAME(TPN1); 

DEFINE_CPIC_SIDE_INFO SYMBOLIC_DESTINATION_NAME(IPFVM2S4) 

DESCRIPTION (ITSO 3174 VM SQL - SQLVMDB6) 
PARTNER_LU_ALIAS(BOEVMIS2 ) 

MODE_NAME (IH4RDHM ) 

TP_NAME(SQLVMDB6); 

DEFINE_CPIC_SIDE_INFO SYMBOLIC_DESTINATION_NAME(Z00VM1S4) 

DESCRIPTION (ZPIZ 3174 VM SQL - SQLDBA) 
PARTNER_LU_ALIAS(Z00VM317 ) 

M3DE_NAME(IBMRDB ) 

TP_NAME(SQLDBA); 

DEFINE_CPIC_SIDE_INFO SYMBOLIC_DESTINATION_NAME(Z00VS1S4) 

DESCRIPTION(ZPIZ 3174 VSE SQL - SQLDS) 
PARTNER_LU_ALIAS(Z00VS317 ) 

M3DE_NAME(IBMRDB ) 

TP_NAME(TPN1); 

START_ATTACH_MANAGER; 

Figure 229 (Part 4 of 4). DRDA Connection via 3174 for ITSO and ZPIZ 
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A.4.10 Connection via 3745 for ITSO and ZPIZ 


DEFINE_LOCAL_CP FQ_CP_NAME (DEIBMIPF. IPFCPSOE) 

DESCRIPTION (LOCAL NODE FOR IPFL3745 VIA NCP) 

CP_ ATjIA S (IPFCPSOE) 

NAU_ADDRESS(INDEPENDENT_LU) 

NODE_TYPE (EN) 

NODE_ID(XC05DE000EC) 

NW_FP_SUPPORT(NONE) 

HOST_FP_SUPPORT (YES) 

HOST_FP_LINK_NAME(HOSTOOOl) 

MAX_CCMP_LEVEL(NONE) 

MAX_CCMP_TOKENS(0); 

DEFINE_LOGICAL_LINK LINK_NAME(HOSTOOOl) 

DESCRIPTION (ITSO & ZPIZ VIA 3745 CONNECTION) 
FQ_ADJACENT_CP_NAME(DEIBMIPF.IPFV2 ) 
ADJACENT_NODE_TYPE(LEN) 

DLC_NAME (IBMIRNET) 

ADAPIER_NUMBER(0) 

DESTINATION_ADDRESS (XC40001030100204<0 
ETHERNET_FORMAT (NO) 

CP_CP_SESSION_SUPPORT (NO) 

ACTIVAIE_AT_STARTUP (YES) 

LIMITED_RESOURCE(USE_ADAPIER_DEFINITION) 
LINK_STATION_ROLE(USE_ADAPIER_DEFINITION) 
SOLICIT_SSCP_SESSION(YES) 

NODE_ID(XC05DE000EC) 

MAX_ACTIVATION_ATTEMPTS(USE_ADAPTER_DEFINITION) 
USE_PUNAME_AS_CPNAME(NO) 

EFFECTIVE_CAPACITY(USE_ADAPIER_DEFINITION) 
COST_PER_CONNECT_TIME(USE_ADAPIER_DEFINITION) 
COST_PER_BYIE (USE_ADAPIER_DEFINITION) 

SECURITY(USE_ADAPTER_DEFINITION) 
PROPAGATION_DELAY(USE_ADAPTER_DEFINITION) 
USER_DEFINED_1 (USE_ADAPTER_DEFINITION) 
USER_DEFINED_2 (USE_ADAPTER_DEFINITION) 
USER_DEFINED_3 (USE_ADAPTER_DEFINITION); 


Figure 230 (Part 1 of 4). DRDA Connection via 3745 for ITSO and ZPIZ 
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DEFINE_LOGICAL_LINK LINK_NAME(HOST0002) 

DESCRIPTION (FOR 3270 SESSIONS) 
FQJ^JACENT_CP_NAME (DEIBMIPF. IPF ) 
ADJACENT_NODE_TYPE(LEN) 

DLC_NAME (IBMIRNET) 

ADAPTER_NUMEER(0) 

DESTINATIONADDRESS (XC40001030100104<:) 
ETHERNET_FORMAT (NO) 

CP_CP_SESSION_SUPPORT(NO) 

ACTIVATE_AT_STARTUP(YES) 

LIMlTED_RESOURCE(USE_ADAPIER_DEFINITION) 
LINK_STATION_ROtE(USE_ADAPIER_DEFINITION) 
SOLICIT_SSCP_SESSION(YES) 

PUJSAME (IPFP100B) 

NODE_ID(XC05DE000BC) 

MAX_ACTIVATION_ATTEMPTS(USE_ADAPIER_DEFINITION) 
USE_PUNAME_AS_CPNAME (NO) 

EFFECTIVE_CAPACITY(USE_ADAPIER_DEFINITION) 
COST_PER_CONNECT_TIME(USE_ADAPIER_DEFINITION) 
COST_PER_BYIE (USE_ADAPTER_DEFINITION) 

SECURITY(USE_ADAPTER_DEFINITION) 
PROPAGATION_DELAY(USE_ADAPTER_DEFINITION) 
USER_DEFINED_1 (USE_ADAPTER_DEFINITION) 
USER_DEFINED_2 (USE_ADAPTER_DEFINITION) 
USER_DEFINED_3 (USE_ADAPTER_DEFINITION); 

DEFINE_LOCAL_LU LU_NAME(IPFSL0E0) 

DESCRIPTION (ITSO -LOCAL QUEUE MANAGER VIA 3745) 
LU_ALIAS(IPF3745 ) 

NAU_ADDRESS(INDEPENDENT_LU); 

DEFINE_PARTNER_LU FQ_PARTNER_LU_NAME(DEIHYUPF.IPFA2GL4) 

DESCRIPTION (ITSO 3745 VM SQL/DS) 

PARTNER_LU_ALIAS(BOEVMIS2) 
PARTTSER_LU_UNINTERPRETED_NAME (IPFA2GL4) 
MAX_MC_LL_SEND_SIZE(32767) 
CONV_SECURITY_VERIFICATION(NO) 
PARALLEL_SESSION_SUPPORT(YES); 

DEFINE_PARTNER_LU FQ_PARTNER_LU_NAME(DEIHYUPF.IPFA21CD) 

DESCRIPTION (ITSO 3745 VSE SQL/DS) 

PARTNER_LU_ALIAS(VSEANL13) 
PARTTSER_LU_UNINTERPRETED_NAME (IPFA21CD) 
MAX_NC_LL_SEND_SIZE(32767) 
CONV_SECURITY_VERIFICATION(NO) 
PARALLEL_SESSION_SUPPORT(YES); 

DEFINE_PARTNER_LU FQ_PARTNER_LU_NAME(SIZPIZ00.Z00AVSL1) 

DESCRIPTION (ZPIZ 3745 VM SQL/DS) 

PARTNER_LU_ALIAS(Z00VM374) 

PARTNKR_TIT_INTNTFRPRF. TFD _NAMF (Z00AVSL1) 
MAX_MC_LL_SEND_SIZE(32767) 
CONV_SECURITY_VERIFICATION(NO) 
PARALLEL_SESSION_SUPPORT(YES); 


Figure 230 (Part 2 of 4). DRDA Connection via 3745 for ITSO and ZPIZ 
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DEFINE_PARTNER_LU FQ_PARTNER_LU_NAME(SIZPIZOO.Z00CICS4) 
DESCRIPTION(ZPIZ 3745 VSE SQL/DS) 
PARTNERJIUALIAS(Z00VS374) 

PARTNKR_TIJ_JNTNTFRPRF. TED _NAMFi (Z00CICS4) 
MAXjyq_LL_SEND_SIZE(32767) 
CONV_SECURITY_VERIFICATION(NO) 
PARAIIEL_SESSION_SUPPORT(YES); 

DEFINE_PARTNER_LU FQ_PARTNFR_T,U_NAMF, (D F.TRM TPF. TPF ) 
DESCRIPTION(3270 SESSIONS) 

PARTNERJHJ_ALIAS(IPF) 

PARTNER_THj:NlWFRPRF. TFD _NAMF, (IPF ) 
MAXjyq_LL_SEND_SIZE(32767) 
CONV_SECURITY_VERIFICATION(NO) 
PARALLEL_SESSION_SUPPORT(YES); 

DEFINE_PARTNER_LU_LOCATION FQ_PARTNER_LU_NAME(DEIBMIPF.IPFA2GL4) 

WILDCARD_ENTRY (NO) 

FQJCWNING_CP_NAME (DEIBMIPF. IPFV2 ) 
IOCAL_NODE_NN_SERVER (NO); 

DEFINE_PARTNER_LU_LOCATION FQ_PARTNER_LU_NAME(DEIBMIPF.IPFA21CD) 

WILDCARD_ENTRY (NO) 

FQ_CWNING_CP_NAME (DEIBMIPF. IPFV2 ) 
IOCAL_NODE_NN_SERVER (NO); 

DEFINE_PARTNER_LU_LOCATION FQ_PARINER_LU_NAME(SIZPIZOO.Z00AVSL1) 

WILDCARD_ENTRY (NO) 

FQ_CWNING_CP_NAME (DEIBMIPF. IPFV2 ) 
IX)CAL_NODE_NN_SERVER(NO); 

DEFINE_PARTNER_LU_LOCATION FQ_PARTNER_LU_NAME(SIZPIZOO.Z00CICS4) 

WILDCARD_ENTRY (NO) 

FQ_OWNING_CP_NAME(DEIBMIPF.IPFV2 ) 
LOCAL_NODE_NN_SERVER(NO); 

DEFINE_PARTNER_LU_LOCATION FQ_PARTNER_LU_NAME(DEIBMIPF.IPF ) 

WILDCARD_ENTRY (NO) 

FQ_OWNING_CP_NAME(DEIBMIPF.IPF ) 
LOCAL_NODE_NN_SERVER(NO); 

DEFINEJYDDE MODE_NAME (IBMRDBM ) 

DESCRIPTION(ITSO IBMRDBM) 

COS_NAME(#CONNECT) 

DEFAULT_RU_SIZE(YES) 

RECEIVE_PACING_WINDOW(4) 
MAX_NEGOTIABLE_SESSION_LIMIT(32767) 
PLU_MODE_SESSION_LIMIT(20) 

MIN_CONWINNERS_SOURCE(10) 

CCMPRESSIONJSEED(PROHIBITED) 

PLU_SLU_CCMPRESSION(NONE) 

SLU_PLU_CCMPRESSION(NONE); 


Figure 230 (Part 3 of 4). DRDA Connection via 3745 for ITSO and ZPIZ 


Appendix A. System Tables and Sample Programs 227 




DEFINEJMDDE MODE JNAME(IBMRDB ) 

DESCRIPTION(ZPIZ IBMRDB) 

COS_NAME(#CONNECT) 

DEFAULT_RU_SIZE(YES) 

RECEIVE_PACING_WINDOW(4) 
NAX_NEGOTIABLE_SESSION_LIMIT(32767) 
PLU_M3DE_SESSION_LIMIT(20) 

MIN_CONWINNERS_SOURCE(10) 

CCMPRESSIONNEED(PROHIBITED) 

PLU_SLUjCCMPRESSION(NONE) 

SLU_PLU_CCMPRESSION(NONE); 

DEFINE_DEFAULTS IMPLICIT_INBOUND_PLU_SUPPORT(YES) 

DEFAULTJMDDEJNAME (BLANK) 

DEFAULT_LOCAL_LU_ALIAS(IPF3745 ) 
MAX_MC_LL_SEND_SIZE(32767) 
DIRECTORY_FOR_INBOUND_ATTACHES(*) 
DEFAULT_TP_OPERATION(NONQUEUED_AM_STARTED) 
DEFAULT_TP_PROGRAM_TYPE(BACKGROUND) 
DEFAULT_TP_CONV_SECURITY_RQD(NO) 

MAX_ HETD _ATERTS (10); 

DEFINE_CPIC_SIDE_INFO SYMBOLIC_DESTINATION_NAME(IPFVS1S5) 

DESCRIPTION (ITSO 3745 VSE SQL - SQLVSDB1) 
PARTNER_LU_ALIAS(VSEANL13 ) 

MODE JNAME (IHMRDHM ) 

TP_NAME(TPN1); 

DEFINE_CPIC_SIDE_INFO SYMBOLICJ7ESTINATION_NAME(IPFVM1S5) 

DESCRIPTION (ITSO 3745 VM SQL - SQLVSDB1) 
PARTNER_LU_ALIAS(BOEVMIS2 ) 

MODE JNAME (IHMRDHM ) 

IPJNAME (SQLVMDBO); 

DEFINE_CPIC_SIDE_INFO SYMBOLIC_DESTINATION_NAME(IPFVM2S5) 

DESCRIPTION (ITSO 3745 VM SQL - SQLVSDB6) 
PARTNER_LU_ALIAS(BOEVMIS2 ) 

MODE_NAME (IHMRDHM ) 

IPJSAME (SQLVMDB6); 

DEFINE_CPIC_SIDE_INFO SYMBOLIC_DESTINATION_NAME(Z00VS1S5) 

DESCRIPTION(ZPIZ 3745 VSE SQL - SQLDS) 
PARTNER_LU_ALIAS(Z00VS374 ) 

MODE_NAME(IBMRDB ) 

IPJNAME (IPN1); 

DEFINE_CPIC_SIDE_INFO SYMBOLIC_DESTINATIONJNAME (Z00VM1S5) 

DESCRIPTION (ZPIZ 3745 VM SQL - SQLDBA) 
PARTNER_LU_ALIAS(Z00VM374 ) 

MDDEJNAME (IBMRDB ) 

IPJNAME (SQLDBA); 

START_ATTACH_MANAGER; 

Figure 230 (Part 4 of 4). DRDA Connection via 3745 for ITSO and ZPIZ 
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Appendix B. Customization and Displays 


B.1 SNA Server/6000 Customization on ITSOI 
B.1.1 SNA Global Information and Local LU Profile 


Table 21. SNA Global Information and Local LU Profile on ITSOI 

SNA Global Information 

Control point (CP) name 

DEIBMIPF.IPFP221 B 

CP alias 

IPFP221 B 

Node ID (for XID) 

X'05DE001B' 

Node type 

End node (EN) 

6.2 Local LU Profile 

Current profile name 

IPF3174 

Local LU name 

IPFBOEDJ 

Local LU alias 

IPF3174 


B.1.2 Token-Ring Adapter 


Token-Ring Adapter 

tEntry Fieldst 
tokO 

Description 

Token-Ring High-Performance 

Status 

Available 

Location 

00-05 

Receive data transfer OFFSET 

92 

TRANSMIT queue size 

30 

RECEIVE queue size 

30 

STATUS BLOCK queue size 

10 

RING speed 

16 

Receive ATTENTION MAC frame 

no 

Receive BEACON MAC frame 

no 

Enable ALTERNATE TOKEN RING address 

yes 

ALTERNATE TOKEN RING address 

0x40001010101b 

Apply change to DATABASE only 

no 


Figure 231. Show Characteristics of a Token-Ring Adapter 


© Copyright IBM Corp. 1996 


229 







B.1.3 Token-Ring Link Station 


Current profile name 

tEntry Fieldst 

IPFL3174 

New profile name 

Use Control PointCs XID node ID? 

yes 

If no, XID node ID 

~k 

SNA DLC Profile name 

tokO.00001 

Stop link station on inactivity? 

no 

If yes. Inactivity time-out (0-10 minutes) 

0 

LU address registration? 

no 

If yes, 

LU Address Registration Profile name 

Trace link? 

no 

If yes. Trace size 

long 

Adjacent Node Address Parameters 

Access routing 

link_address 

If link_name. Remote link name 

If link_address. 

Remote link address 

400020201001 

Remote SAP address (02-fa) 

04 

Adjacent Node Identification Parameters 

Verify adjacent node? 

no 

Network ID of adjacent node 

DEIBMIPF 

CP name of adjacent node 

XID node ID of adjacent node (LEN node only) 

■k 

Node type of adjacent node 

learn 

Link Activation Parameters 

Solicit SSCP sessions? 

yes 

Initiate call when link station is activated? 

yes 

Activate link station at SNA start up? 

yes 

Activate on demand? 

no 

CP-CP sessions supported? 

yes 

If yes. 

Adjacent network node preferred server? 

no 

Partner required to support CP-CP sessions? 

no 

Initial TG number (0-20) 

0 

Restart Parameters 

Restart on activation? 

no 

Restart on normal deactivation? 

no 

Restart on abnormal deactivation? 

no 

Transmission Group COS Characteristics 

Effective capacity 

15974400 

Cost per connect time 

0 

Cost per byte 

0 

Security 

nonsecure 

Propagation delay 

lan 

User-defined 1 

128 

User-defined 2 

128 

User-defined 3 

128 


Figure 232. Change/Show Token-Ring Link Station Profile IPFL3174 
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Current profile name 

tEntry Fieldst 

Z00L3174 

New profile name 

Use Control PointCs XID node ID? 

yes 

If no, XID node ID 

~k 

SNA DLC Profile name 

tokO.00001 

Stop link station on inactivity? 

no 

If yes. Inactivity time-out (0-10 minutes) 

0 

LU address registration? 

no 

If yes, 

LU Address Registration Profile name 

Trace link? 

no 

If yes. Trace size 

long 

Adjacent Node Address Parameters 

Access routing 

link_address 

If link_name. Remote link name 

If link_address. 

Remote link address 

400020201001 

Remote SAP address (02-fa) 

04 

Adjacent Node Identification Parameters 

Verify adjacent node? 

no 

Network ID of adjacent node 

SIZPIZ00 

CP name of adjacent node 

XID node ID of adjacent node (LEN node only) 

k 

Node type of adjacent node 

learn 

Link Activation Parameters 

Solicit SSCP sessions? 

yes 

Initiate call when link station is activated? 

yes 

Activate link station at SNA start up? 

yes 

Activate on demand? 

no 

CP-CP sessions supported? 

yes 

If yes. 

Adjacent network node preferred server? 

no 

Partner required to support CP-CP sessions? 

no 

Initial TG number (0-20) 

0 

Restart Parameters 

Restart on activation? 

no 

Restart on normal deactivation? 

no 

Restart on abnormal deactivation? 

no 

Transmission Group COS Characteristics 

Effective capacity 

15974400 

Cost per connect time 

0 

Cost per byte 

0 

Security 

nonsecure 

Propagation delay 

lan 

User-defined 1 

128 

User-defined 2 

128 

User-defined 3 

128 


Figure 233. Change/Show Token-Ring Link Station Profile Z00L3174 
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B.1.4 Control Point 



tEntry Fieldst 

Profile name 

node_cp 

XID node ID 

05de001b 

Network name 

DEIBMIPF 

Control Point (CP) name 

IPFP221B 

Control Point alias 

IPFP221B 

Control Point type 

appn_<end_node 

Maximum number of cached routing trees 

500 

Maximum number of nodes in the TRS database 

500 

Route addition resistance 

Ccmnnents 

128 


Figure 234. Change/Show Control Point Profile 


B.1.5 LU 6.2 Local LU 


Current profile name 

tEntry Fields! 

IPF3174 

New profile name 

Local LU name 

IPFBOEDJ 

Local LU alias 

IPF3174 

Local LU is dependent? 

no 

If yes. 

Local LU address (1-255) 

System services control point 
(SSCP) ID (*, 0-65535) 

•k 

Link Station Profile name 

Conversation Security Access List Profile name 
Carments 

LU used for 3174 


Figure 235. Change/Show LU 6.2 Local LU Profile 


B.1.6 Partner LU 6.2 Location 



tEntry Fields! 

Current profile name 

IPFVS4 

New profile name 


Fully qualified partner LU name 

DEIBMIPF.IPFA21CD 

Partner LU location method 

link_station 

If owning_cp. 


Fully qualified owning Control Point (CP) 

name 

Local node is network server for LEN node 

? no 

Fully qualified network node server name 


If link_station. 


Local LU name 

IPFBOEDJ 

Link Station Profile name 

IPFL3174 

Ccmnnents 



Figure 236. Change/Show Partner LU 6.2 Location Profile IPFVS4 


232 


Multi-Language Solutions 







tEntry Fields! 

Current profile name 

IPFVM4 

New profile name 


Fully qualified partner LU name 

DEIBMIPF.IPFA2GL4 

Partner LU location method 

link_station 

If owning_cp. 


Fully qualified owning Control Point (CP) name 

Local node is network server for LEN node? 

no 

Fully qualified network node server name 


If link_station. 


Local LU name 

IPFBOEDJ 

Link Station Profile name 

IPFL3174 

Corments 



Figure 237. Change/Show Partner LU 6.2 Location Profile IPFVM4 



tEntry Fields! 

Current profile name 

Z00VS4 

New profile name 


Fully qualified partner LU name 

SIZPIZOO.Z00CICS4 

Partner LU location method 

link_station 

If owning_cp. 


Fully qualified owning Control Point (CP) 

name 

Local node is network server for LEN node 

? no 

Fully qualified network node server name 


If link_station. 


Local LU name 

IPFBOEDJ 

Link Station Profile name 

Z00L3174 

Comments 



Figure 238. Change/Show Partner LU 6.2 Location Profile Z00VS4 



tEntry Fields! 

Current profile name 

Z00VM4 

New profile name 


Fully qualified partner LU name 

SIZPIZOO.Z00AVSL1 

Partner LU location method 

link_station 

If owning_cp. 


Fully qualified owning Control Point (CP) name 

Local node is network server for LEN node? 

no 

Fully qualified network node server name 


If link_station. 


Local LU name 

IPFBOEDJ 

Link Station Profile name 

Z00L3174 

Cctrments 



Figure 239. Change/Show Partner LU 6.2 Location Profile Z00VM4 
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B.1.7 LU 6.2 Mode 


Current profile name 

tEntry Fieldst 

IBMRDBM 

New profile name 

Mode name 

IBMRDBM 

Maximum number of sessions (1-5000) 

60 

Minimum contention winners (0-5000) 

30 

Minimum contention losers (0-5000) 

30 

Auto activate limit (0-500) 

0 

Upper bound for adaptive receive pacing window 

16 

Receive pacing window (0-63) 

3 

Maximum RU size (128, .. .,32768: multiples of 32) 

4096 

Minimum RU size (128, .. .,32768: multiples of 32) 

1024 

Class of Service (COS) name 

♦CONNECT 

Carments 



Figure 240. Change/Show LU 6.2 Mode Profile IBMRDBM 


tEntry Fieldst 

Current profile name 

IBMRDB 

New profile name 


Mode name 

IBMRDB 

Maximum number of sessions (1-5000) 

20 

Minimum contention winners (0-5000) 

10 

Minimum contention losers (0-5000) 

10 

Auto activate limit (0-500) 

0 

Upper bound for adaptive receive pacing window 

16 

Receive pacing window (0-63) 

7 

Maximum RU size (128, .. .,32768: multiples of 32) 

1920 

Minimum RU size (128, .. .,32768: multiples of 32) 

256 

Class of Service (COS) name 

♦CONNECT 

Carments 



Figure 241. Change/Show LU 6.2 Mode Profile IBMRDB 
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B.1.8 LU 6.2 Side Information Profile 


Current profile name 

New profile name 

Local LU or Control Point alias 

Provide only one of the following: 

Partner LU alias 

Fully qualified partner LU name 

Mode name 

Remote transaction program name (RTPN) 

RTPN in hexadecimal? 

Carments 

IPFVS1S4 

IPF3174 

DEIBMIPF.IPFA21CD 

IBMRDBM 

TPN1 

no 

Figure 242. Change/Show LU 6.2 Side Information Profile IPFVS1S4 

Current profile name 

IPFVM1S4 

New profile name 

Local LU or Control Point alias 

IPF3174 

Provide only one of the following: 

Partner LU alias 

Fully qualified partner LU name 

DEIBMIPF.IPFA2GL4 

Mode name 

IBMRDBM 

Remote transaction program name (RTPN) 

SQLVMDBO 

RTPN in hexadecimal? 

no 

Figure 243. Change/Show LU 6.2 Side Information Profile IPFVM1S4 

Current profile name 

Z00VS1S4 

New profile name 

Local LU or Control Point alias 

IPF3174 

Provide only one of the following: 

Partner LU alias 

Fully qualified partner LU name 

SIZPIZOO.Z00CICS4 

Mode name 

IBMRDB 

Remote transaction program name (RTPN) 

TPN1 

RTPN in hexadecimal? 

no 


Figure 244. Change/Show LU 6.2 Side Information Profile Z00VS1S4 


Current profile name 

Z00VM1S4 

New profile name 

Local LU or Control Point alias 

IPF3174 

Provide only one of the following: 

Partner LU alias 

Fully qualified partner LU name 

SIZPIZOO.Z00AVSL1 

Mode name 

IBMRDB 

Remote transaction program name (RTPN) 

SQLDBA 

RTPN in hexadecimal? 

no 


Figure 245. Change/Show LU 6.2 Side Information Profile Z00VM1S4 
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B.2 DB2 for AIX Customization on ITSOI 


B.2.1 DB2 for AIX Database Directory 


System Database Directory 

Number of entries in the directory = 4 

Database 1 entry: 

Database alias 

= IPEVS1A4 

Database name 

= IPFVS1D4 

Node name 

= IPFVS1N4 

Database release level 

= 6.00 

Ccmnnent 

= 

Directory entry type 

= Remote 

Authentication 

= DCS 

Database 2 entry: 

Database alias 

= IPFVM1A4 

Database name 

= IPFVM1D4 

Node name 

= IPFVM1N4 

Database release level 

= 6.00 

Ccmnnent 

= 

Directory entry type 

= Remote 

Authentication 

= DCS 

Database 3 entry: 

Database alias 

= Z00VS1A4 

Database name 

= Z00VS1D4 

Node name 

= Z00VS1N4 

Database release level 

= 6.00 

Ccmnnent 

= 

Directory entry type 

= Remote 

Authentication 

= DCS 

Database 4 entry: 

Database alias 

= Z00VM1A4 

Database name 

= Z00VM1D4 

Node name 

= Z00VM1N4 

Database release level 

= 6.00 

Ccmnnent 

= 

Directory entry type 

= Remote 

Authentication 

= DCS 


Figure 246. Database Directory on ITSOI 
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B.2.2 DB2 for AIX DCS Directory 


Database Connection Services 

(DCS) Directory 

Number of entries in the directory = 4 

DCS 1 entry: 

Local database name 

= IPFVS1D4 

Target database name 

= SQLVSDB1 

Application requestor name 

= 

DCS parameters 

= 

Carment 

= 

DCS directory release level 

= 0x0100 

DCS 2 entry: 

Local database name 

= IPFVM1D4 

Target database name 

= SQLVMDBO 

Application requestor name 

= 

DCS parameters 

= 

Carment 

= 

DCS directory release level 

= 0x0100 

DCS 3 entry: 

Local database name 

- Z00VS1D4 

Target database name 

= SQLDS 

Application requestor name 

= 

DCS parameters 

= 

Carment 

= 

DCS directory release level 

= 0x0100 

DCS 4 entry: 

Local database name 

= Z00VM1D4 

Target database name 

= SQLDBA 

Application requestor name 

= 

DCS parameters 

= 

Carment 

= 

DCS directory release level 

= 0x0100 


Figure 247. DCS Directory on ITS01 


Appendix B. Customization and Displays 


237 






B.2.3 DB2 for AIX Node Directory 


Node Directory 

Number of entries in the directory = 4 


Node 1 entry: 

Node name 
Carment 
Protocol 

Symbolic destination name 
Security type 

Node 2 entry: 

Node name 
Carment 
Protocol 

Symbolic destination name 
Security type 

Node 3 entry: 

Node name 
Carment 
Protocol 

Symbolic destination name 
Security type 

Node 4 entry: 

Node name = Z00VM1N4 

Carment = 

Protocol = APPC 

Symbolic destination name = Z00VM1S4 

Security type = PROGRAM 

Figure 248. Node Directory on ITS01 


= Z00VS1N4 

= APPC 
= Z00VS1S4 
= PROGRAM 


= IPFVM1N4 

= APPC 
= IPFVM1S4 
= PROGRAM 


= IPFVS1N4 

= APPC 
= IPFVS1S4 
= PROGRAM 
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B.3 Database Connection from ITSOI to SQL/DS on VM/VSE 
B.3.1 Status of SNA 



Figure 249. Display the Status of SNA 

B.3.2 SNA Global Information 


COMMAND STATUS 

Carmand: OK stdout: yes stderr: no 

Before command completion, additional instructions may appear below. 

• TOP" 

'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k 

SNA Global Information 

★ ************** - j | r'j | r'j | r*********'j | r'j | r'j | r*'j | r*'j | r*'j | r'j | r* 

Status 

Control point (CP) name 
CP alias 

Node ID (for XID) 

Node type 

Max. number of cached routing trees 
Max. number of nodes in the TDB 
Route additional resistance 
Maximum number of sessions 
Maximum number of conversations 
Implicit partner LU support? 

NMVT action when no NMVT process 
Control Point (CP) profile comment 
Product version 
Local hostname (TCP/IP) 

Time of last verified configuration 

•BOTTCM" 

Fl=Help F2=Refresh F3=Cancel F6=Ccmmand 

F8=Image F9=Shell FlOExit 

Figure 250. Display SNA Global information 


Active 

DEIBMIPF.IPFP221B 
IPFP221B 
X905DE001B9 
End node (EN) 

500 

500 

128 

200 

200 

Yes 

Reject 

1.3.95.293 

itsol 

Thu Oct 17 12:10:43 1996 
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B.3.3 Active Link Information 


COMMAND STATUS 

Command: OK stdout: yes stderr: no 

Before command completion, additional instructions may appear below. 

Link Adjacent Node Device # of local In 

station CP name type name State sessions use 


@tok0.4 tokO Starting 0 No 

IPFL3174 DEIBMIPF. IPFCP200 NN tokO Active 2 Yes 

Fl=Help F2=Refresh F3=Cancel F6=Ccmmand 

F8=Iimage F9=Shell F10=Exit 


Figure 251. Display Active Link Information 


B.3.4 LU 6.2 Session Information 


COMMAND STATUS 

Command: OK stdout: yes stderr: no 

Before command completion, additional instructions may appear below. 

Local Partner Mode Link 

CGID LU name LU name name station State 


2 DEIBMIPF. IPFP221B DEIBMIPF. IPFCP200 CPSVCM3 IPFL3174 Available 

1 DEIBMIPF.IPFP221B DEIBMIPF.IPFCP200 CPSVCM3 IPFL3174 Available 


Fl=Help F2=Refresh F3=Cancel F6=Ccmmand 

F8=Iimage F9=Shell F10=Exit 


Figure 252. Display LU 6.2 Session Information before Database Connection 
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B.3.5 Database Connection with Corresponding CCSID 

The connection is made from ITSOI with code page IBM-850 to SQL/DS on VSE 
(Boblingen) with CCSID INTERNATIONAL (500). 


DIR: /hcme/db2instl 
itsol(db2instl) $ db2 t 

connect to ipfvsla4 user demo using sql34nt 

Database Connection Information 

Database product 

= SQL/DS VSE 3.5.0 

SQL authorization ID 

= DEMO 

Local database alias 

= IPFVS1A4 

DIR: /hcme/db2instl 
itsol(db2instl) $ 



Figure 253. Connect to SQL/DS on VSE 


B.3.6 Display Sessions 


COMMAND STATUS 

Cctrmand: OK stdout: yes stderr: no 

Before command completion, additional instructions may appear below. 

Local Partner Mode Link 

CGID LU name LU name name station State 


6 DEIBMIPF. IPFBOEDJ DEIBMIPF. IPFA21CD IBMRDBM IPFL3174 Available 
5 DEIBMIPF. IPFBOEDJ DEIBMIPF. IPFA21CD IBMRDBM IPFL3174 Allocated 
4 DEIBMIPF.IPFBOEDJ DEIBMIPF.IPFA21CD SNASVCMG IPFL3174 Available 
3 DEIBMIPF.IPFBOEDJ DEIBMIPF.IPFA21CD SNASVCMG IPFL3174 Available 
2 DEIBMIPF. IPFP221B DEIBMIPF. IPFCP200 CPSVCMG IPFL3174 Available 
1 DEIBMIPF. IPFP221B DEIBMIPF. IPFCP200 CPSVCMG IPFL3174 Available 


Fl=Help F2=Refresh F3=Cancel F6=Ccmmand 

F8=Image F9=Shell F10=Exit 

Figure 254. Display Sessions after First Connect 
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B.3.7 Database Connection with Corresponding CCSID 

The connection is made from ITSOI with code page IBM-850 to SQL/DS on VM 
(Boblingen) with CCSID INTERNATIONAL (500). 


DIR: /hcme/db2instl 
itsol(db2instl) $ db2 

tconnect to ipfvmla4 user drdaxl using itsolObbt 

Database Connection Information 

Database product 

= SQL/DS VM 3.5.0 

SQL authorization ID 

= DRDAX1 

Local database alias 

= IPFVM1A4 

DIR: /hcme/db2instl 
itsol(db2instl) $ 



Figure 255. Connect from ITSOI to SQL/DS on VM 


B.3.8 Display Sessions 


COMMAND STATUS 

Cctrmand: OK stdout: yes stderr: no 

Before command completion, additional instructions may appear below. 

• TOP" 

Local Partner Mode Link 

CGID LU name LU name name station State 

27 

DEIBMIPF. IPFBOEDJ DEIBMIPF. IPFA2GL4 

IBMRDBM 

IPFL3174 

Allocated 

26 

DEIBMIPF. IPFBOEDJ DEIBMIPF. IPFA2GL4 

IBMRDBM 

IPFL3174 

Available 

25 

DEIBMIPF. IPFBOEDJ DEIBMIPF. IPFA2GL4 

IBMRDBM 

IPFL3174 

Available 

24 

DEIBMIPF. IPFBOEDJ DEIBMIPF. IPFA2GL4 

IBMRDBM 

IPFL3174 

Available 

23 

DEIBMIPF. IPFBOEDJ DEIBMIPF. IPFA2GL4 

IBMRDBM 

IPFL3174 

Available 

22 

DEIBMIPF. IPFBOEDJ DEIBMIPF. IPFA2GL4 

IBMRDBM 

IPFL3174 

Available 

21 

DEIBMIPF. IPFBOEDJ DEIBMIPF. IPFA2GL4 

IBMRDBM 

IPFL3174 

Available 

20 

DEIBMIPF. IPFBOEDJ DEIBMIPF. IPFA2GL4 

IBMRDBM 

IPFL3174 

Available 

19 

DEIBMIPF. IPFBOEDJ DEIBMIPF. IPFA2GL4 

IBMRDBM 

IPFL3174 

Available 

18 

DEIBMIPF. IPFBOEDJ DEIBMIPF. IPFA2GL4 

IBMRDBM 

IPFL3174 

Available 

17 

DEIBMIPF. IPFBOEDJ DEIBMIPF. IPFA2GL4 

IBMRDBM 

IPFL3174 

Available 

16 

DEIBMIPF. IPFBOEDJ DEIBMIPF. IPFA2GL4 

IBMRDBM 

IPFL3174 

Available 

15 

DEIBMIPF. IPFBOEDJ DEIBMIPF. IPFA2GL4 

IBMRDBM 

IPFL3174 

Available 

14 

DEIBMIPF. IPFBOEDJ DEIBMIPF. IPFA2GL4 

IBMRDBM 

IPFL3174 

Available 

13 

DEIBMIPF. IPFBOEDJ DEIBMIPF. IPFA2GL4 

IBMRDBM 

IPFL3174 

Available 

12 

DEIBMIPF. IPFBOEDJ DEIBMIPF. IPFA2GL4 

IBMRDBM 

IPFL3174 

Available 

11 

DEIBMIPF. IPFBOEDJ DEIBMIPF. IPFA2GL4 

IBMRDBM 

IPFL3174 

Available 

10 

DEIBMIPF. IPFBOEDJ DEIBMIPF. IPFA2GL4 

IBMRDBM 

IPFL3174 

Available 

9 

DEIBMIPF. IPFBOEDJ DEIBMIPF. IPFA2GL4 

IBMRDBM 

IPFL3174 

Available 

8 

DEIBMIPF. IPFBOEDJ DEIBMIPF. IPFA2GL4 

IBMRDBM 

IPFL3174 

Available 


Figure 256 (Part 1 of 2). Display Sessions after Second Connect 
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7 

6 

5 

4 

3 

2 

1 


DEIBMIPF. IPFBOEDJ DEIBMIPF. IPFA2GL4 SNASVCMG 
DEIBMIPF. IPFBOED J DEIBMIPF. IPFA21CD IBMRDBM 
DEIBMIPF. IPFBOED J DEIHyilPF. IPFA21CD IBMRDBM 
DEIBMIPF.IPFBOEDJ DEIBMIPF. IPFA21CD SNASVCMG 
DEIHMIPF. IPFBOED J DEIBMIPF. IPFA21CD SNASVCMG 
DEIHyilPF. IPFP221B DEIHyilPF. IPFCP200 CPSVCMG 
DEIHyilPF. IPFP221B DEIHyilPF. IPFCP200 CPSVCMG 


IPFL3174 

IPFL3174 

IPFL3174 

IPFL3174 

IPFL3174 

IPFL3174 

IPFL3174 


Available 

Available 

Allocated 

Available 

Available 

Available 

Available 


•BOTTOM" 

Fl=Help F2=Refresh F3=Cancel F6=Ccmnnand 

F8=Image F9=Shell FlOExit 


Figure 256 (Part 2 of 2). Display Sessions after Second Connect 


B.3.9 Database Connection with not Corresponding CCSID 

The CCSID for the SQL/DS database on VSE is now changed from 500 to 870 
(Slovenian). Then the database connection from ITSOI to SQL/DS on VSE is 
tried again. 


DIR: /hcme/db2instl 

itsol (db2instl) $ db2 t connect to ipfvsla4 user demo using sql34nt 
SQL0332N There is no available conversion for the source code page t870t to 
the target code page t850t. Reason Code tit. SQLSTATE=57017 
DIR: /hcme/db2instl 
itsol(db2instl) $ 


Figure 257. SQL Message when Using Not Corresponding CCSIDs 
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Appendix C. Sample Code Pages 


C.1 Sample Latin-1 Code Pages 


C.1.1 Sample English Code Page 


HEX 

DIGITS 

1ST -+ 

2ND + 

4- 

5- 

6- 

7- 

8- 

9- 

A- 

B- 

C- 

D- 

E- 

F- 

-0 

(SP) 

& 

_ 

0 

0 

o 

p 

A 

{ 

} 

\ 

0 


SP010000 

SM030000 

SP100000 

L0610000 

L0620000 

SM190000 

SM170000 

SD150000 

SM110000 

SM140000 

SM070000 

ND100000 

-1 

(RSP) 

e 

/ 

E 

a 

j 


£ 

A 

J 

-J- 

1 


SP30QQQQ 

LEI 10000 

SP120000 

LE120000 

LAO 10000 

LJ010000 

SD190000 

SC020000 

LA020000 

LJ020000 

SA060000 

ND010000 

-2 

a 

e 

A 

E 

b 

k 

S 

¥ 

B 

K 

S 

2 


LA150000 

LE150000 

LAI 60000 

LE160000 

LB010000 

LK010000 

LS010000 

SC050000 

LB020000 

LK020000 

LS020000 

ND020000 

m 

a 

e 

A 

E 

C 

1 

t 

• 

C 

L 

T 

3 

SI 

LA170000 

LE170000 

LAI 80000 

LE180000 

LC010000 

LL010000 

LT010000 

SD630000 

LC020000 

LL020000 

LT020000 

ND030000 


a 

e 

A 

E 

d 

m 

U 

© 

D 

M 

U 

4 

■ft! 

LA130000 

LE130000 

L AMO 000 

LE 140000 

LD010000 

LM010000 

LU010000 

SM520000 

LD020000 

LM020000 

LU020000 

ND040000 


a 

1 

A 

I 

e 

n 

V 

§ 

E 

N 

V 

5 

Hi 

LAI 10000 

LI110000 

LA120000 

LI120000 

LE010000 

LNO10000 

LVO10000 

SM240000 

LE020000 

LN020000 

LV020000 

ND050000 

-6 

a 

i 

A 

I 

f 

0 

W 

If 

F 

0 

W 

6 


LA190000 

LI150QQQ 

LA200000 

LI160000 

LF010000 

LOOIOOOO 

LW010000 

SM250000 

LF020000 

L0020000 

LW020000 

ND060000 

m 

a 

1 

o 

A 

I 

g 

P 

X 

Va 

G 

P 

X 

7 

warn 

LA270000 

LI170000 

LA280000 

LI180000 

LG010000 

LP010000 

LXO10000 

NF040000 

LG020000 

LP020000 

LX020000 

ND070000 

-8 

5 

I 

Q 

i 

h 

q 

y 

‘/a 

H 

Q 

Y 

8 


LC410000 

LI130000 

LC420000 

LI140000 

LH010000 

LQ010000 

LYO10000 

NFO10000 

LH020000 

LQ020000 

LY020000 

ND080000 

-9 

n 

B 

N 

X 

i 

r 

Z 

3 /4 

I 

R 

Z 

9 


LN190000 

LS610000 

LN200000 

SD130000 

LI010000 

LRO10000 

LZ010000 

NF050000 

LI020000 

LR020000 

LZ020000 

ND090000 

-A 


! 

: 


« 

a 

1 

[ 

(SHY) 

1 

2 

3 


SC040000 

SP020000 

SM650000 

SP130000 

SP170000 

SM210000 

SP030000 

SM060000 

SP320000 

NDO11000 

ND021000 

ND031000 

-B 

. 

$ 

9 

# 

» 

0 

L 

] 

6 

U 

6 

0 


SP110000 

SC030000 

SP080000 

SM010000 

SP180000 

SM200000 

SP160000 

SM080000 

L0150000 

LU150000 

L0160000 

LU160000 

-C 

< 

* 

% 

@ 

5 

ae 

D 

- 

6 

ii 

O 

ii 


SA030000 

SM040000 

SM020000 

SM050000 

LD630000 

LA510000 

LD620000 

SM150000 

L0170000 

LU170000 

L0180000 

LU180000 

-D 

( 

) 


T 

/ 

y 

_» 

/ 

Y 


6 

U 

6 

U 


SP060000 

SP070000 

SP090000 

SP050000 

LYl 10000 

SD410000 

LY120000 

SD170000 

L0130000 

LU130000 

L0140000 

LU140000 

-E 

+ 

? 

> 

= 

1> 

M 

P 


6 

U 

6 

U 

SA010000 

SP140000 

SA050000 

SA040000 

LT630000 

LA520000 

LT640000 

SD110000 

LOllOOOO 

LU110000 

L0120000 

LU120000 

-F 

1 

~l 

? 

tt 

+ 

n 

® 

X 

6 

y 

O 

fcAj 


SM130000 

SM660000 

SP150000 

SP040000 

SA020000 

SC010000 

SM530000 

SA070000 

L0190000 

LY170000 

L0200000 
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C.1.2 Sample Austrian and German Code Page 


HEX 

DIGITS 

1ST -+ 

2ND + 

4- 

5- 

6- 

7- 

8- 

9- 

A- 

B- 

C- 

D- 

E- 

F- 

-0 

(SP) 

SP010000 

& 

SM030000 

SP100000 

0 

L0610000 

0 

L0620000 

o 

SM190000 

p 

SM170000 

SC040000 

a 

LA170000 

ii 

LU170000 

o 

L0180000 

0 

ND100000 

-1 

(RSP) 

SP300000 

e 

LEI 10000 

/ 

SP120000 

E 

LE120000 

a 

LAO 10000 

j 

LJ010000 

B 

LS610000 

£ 

SC020000 

A 

LA020000 

J 

LJ020000 

SA060000 

1 

ND010000 

-2 

a 

LA150000 

e 

LE150000 

A 

LAI 60000 

E 

LE160000 

b 

LB010000 

k 

LK010000 

S 

LS010000 

¥ 

SC050000 

B 

LB020000 

K 

LK020000 

S 

LS020000 

2 

ND020000 


{ 

SM110000 

e 

LE170000 

[ 

SM060000 

E 

LE180000 

C 

LC010000 

1 

LL010000 

t 

LT010000 

SD630000 

C 

LC020000 

L 

LL020000 

T 

LT020000 

3 

ND030000 


a 

LA130000 

e 

LE130000 

A 

L AMO 000 

E 

LE 140000 

d 

LD010000 

m 

LM010000 

U 

LU010000 

© 

SM520000 

D 

LD020000 

M 

LM020000 

U 

LU020000 

4 

ND040000 

B 

a 

LAI 10000 

1 

LI110000 

A 

LA120000 

I 

LI120000 

e 

LE010000 

n 

LNO10000 

V 

LVO10000 

@ 

SM050000 

E 

LE020000 

N 

LN020000 

V 

LV020000 

5 

ND050000 

-6 

a 

LA19QQ0Q 

i 

LI150000 

A 

LA200000 

I 

LI160000 

f 

LF010000 

0 

LOOIOOOO 

W 

LW010Q00 

If 

SM250000 

F 

LF020000 

0 

L0020000 

W 

LW020000 

6 

ND060000 

B 

a 

LA270000 

1 

LI170000 

o 

A 

LA280000 

I 

LI180Q0Q 

g 

LG010000 

P 

LP010000 

X 

LXO10000 

Va 

NF040000 

G 

LG020000 

P 

LP020000 

X 

LX020000 

7 

ND070000 

-8 

5 

LC410000 

i 

LI130000 

Q 

LC420000 

i 

LI140000 

h 

LH010000 

q 

LQ010000 

y 

LYO10000 

‘/ 2 

NFO10000 

H 

LH020000 

Q 

LQ020000 

Y 

LY020000 

8 

ND080000 

-9 

n 

LN190000 

SD190000 

N 

LN200000 

X 

SD130000 

i 

LI010000 

r 

LRO10000 

Z 

LZ010000 

3 /4 

NF050000 

I 

LI020000 

R 

LR020000 

Z 

LZ020000 

9 

ND090000 

-A 

A 

LA180000 

u 

LU180000 

6 

L0170000 

SP130000 

« 

SP170000 

a 

SM210000 

1 

SP030000 

1 

SM660000 

(SHY) 

SP320000 

1 

NDO11000 

2 

ND021000 

3 

ND031000 

-B 

SP110000 

$ 

SC030000 

9 

SP080000 

# 

SM010000 

» 

SP180000 

0 

SM200000 

L 

SP160000 

1 

SM130000 

6 

L0150000 

U 

LU150000 

6 

L0160000 

0 

LU160000 

-C 

< 

SA030000 

* 

SM040000 

% 

SM020000 

§ 

SM240000 

5 

LD630000 

ae 

LA510000 

D 

LD620000 

SM150000 

SM650000 

) 

SM140000 

\ 

SM070000 

] 

SM080000 

-D 

( 

SP060000 

) 

SP070000 

SP090000 

T 

SP050000 

/ 

y 

LYl 10000 

> 

SD410000 

f 

Y 

LY120000 

SD170000 

6 

L0130000 

u 

LU130000 

6 

L0140000 

U 

LU140000 

-E 

+ 

SA010000 

? 

SP140000 

> 

SA050000 

SA040000 

1> 

LT630000 

m 

LA520000 

P 

LT640000 

f 

SD110000 

6 

LOllOOOO 

U 

LU110000 

6 

L0120000 

U 

LU120000 

-F 

! 

SP020000 

A 

SD150000 

? 

SP150000 

tt 

SP040000 

+ 

SA020000 

n 

SC010000 

® 

SM530000 

X 

SA070000 

6 

L0190000 

y 

LY170000 

O 

L0200000 

(EOt 


Code Page 00273 
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C.1.3 Sample Brazilian Code Page 


HEX 

DIGITS 

1ST -+ 

2ND ^ 

4- 

5- 

6- 

7- 

8- 

9- 

A- 

B- 

C- 

D- 

E- 

F- 

-0 

(SP) 

& 

_ 

0 

0 

o 

B 

0 

6 

e 

\ 

0 


SPO10000 

SM030000 

SP100000 

L0610000 

L0620000 

SM190000 

SM170000 

SC040000 

L0190000 

LEI 10000 

SM070000 

ND100000 

n 

(RSP) 

} 

/ 

[ 

a 

j 


£ 

A 

J 

-f- 

1 

mm 

SP300000 

SM140000 

SP120000 

SM060000 

LAO 10000 

LJ010Q0Q 

SD190000 

SC020000 

LA020000 

LJ020000 

SA060000 

ND010000 

-2 

a 

e 

A 

E 

b 

k 

S 

¥ 

B 

K 

S 

2 


LA150000 

LE150000 

LAI 60000 

LE160000 

LB010000 

LK010000 

LS010000 

SC050000 

LB020000 

LK020000 

LS020000 

ND020000 

m 

a 

e 

A 

E 

C 

1 

t 

• 

C 

L 

T 

3 

sEfl 

LA170000 

LE170000 

LAI 80000 

LE180000 

LC010000 

LL010000 

LT010000 

SD630000 

LC020000 

LL020000 

LT020000 

ND030000 


a 

e 

A 

E 

d 

m 

U 

© 

D 

M 

U 

4 

mm 

LA130000 

LE130000 

L AMO 000 

LE140000 

LD010000 

LM010000 

LU010000 

SM520000 

LD020000 

LM020000 

LU020000 

ND040000 


a 

1 

A 

I 

e 

n 

V 

§ 

E 

N 

V 

5 

■El 

LAI 10000 

LI110000 

LA120000 

LI120000 

LE010000 

LN010000 

LVO10000 

SM240000 

LE020000 

LN020000 

LV020000 

ND050000 

-6 

\ 

i 

@ 

I 

f 

0 

W 

1 

F 

0 

W 

6 


SD130000 

LI150000 

SM050000 

LI160000 

LF010000 

LOOIOOOO 

LW010000 

SM250000 

LF020000 

L0020000 

LW020000 

ND060000 

m 

a 

1 

o 

A 

I 

g 

P 

X 

y 4 

G 

P 

X 

7 

mm 

LA270000 

LI170000 

LA280000 

LI180000 

LG010000 

LP010000 

LXO10000 

NF040000 

LG020000 

LP020000 

LX020000 

ND070000 

-8 

: 

i 

] 

i 

h 

q 

y 

y 2 

H 

Q 

Y 

8 


SM650000 

LI130000 

SM080000 

LI140000 

LH010000 

LQ010000 

LYO10000 

NFO10000 

LH020000 

LQ020000 

LY020000 

ND080000 

-9 

n 

B 

N 

a 

i 

r 

Z 

3 / 4 

I 

R 

Z 

9 


LN190000 

LS610000 

LN200000 

LA190000 

LI010000 

LRO10000 

LZO10000 

NF050000 

LI020000 

LR020000 

LZ020000 

ND090000 

-A 

E 

$ 

c 


« 

a 

i 

”1 

(SHY) 

1 

2 

3 


LE120000 

SC030000 

LC410000 

SP130000 

SP170000 

SM210000 

SPO30000 

SM660000 

SP320000 

NDO11000 

ND021000 

ND031000 

-B 

. 


9 

0 

» 

0 

L 

| 

6 

U 

6 

O 

SP110000 

LC420000 

SPO80000 

L0200000 

SP180000 

SM200000 

SP160000 

SM130000 

L0150000 

LU150000 

L0160000 

LU160000 

-C 

< 

* 

% 

A 

6 

ae 

D 

- 

6 

ii 

O 

ii 


SA030000 

SM040000 

SM020000 

LA200000 

LD630000 

LA510000 

LD620000 

SM150000 

L0170000 

LU170000 

L0180000 

LU180000 

-D 

( 

) 


T 

t 

y 

_» 

/ 

Y 


6 

u 

6 

U 

SP060000 

SP070000 

SP090000 

SP050000 

LYl 10000 

SD410000 

LY120000 

SD170000 

L0130000 

LU130000 

L0140000 

LU140000 

-E 

+ 

? 

> 

= 


m 

P 

/ 

6 

U 

6 

u 

SAO10000 

SP140000 

SA050000 

SA040000 

LT630000 

LA520000 

LT640000 

SD110000 

LOllOOOO 

LU110000 

L0120000 

LU120000 

-F 

T 

SP020000 

A 

SD150000 

? 

SP150000 

tt 

SP040000 

± 

SA020000 

n 

SC010000 

® 

SM530000 

X 

SA070000 

{ 

SMI 10000 

y 

LY170000 

# 

SM010000 

(EO) 
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C.1.4 Sample Italian Code Page 


HEX 

DIGITS 

1ST -+ 

2ND + 

4- 

5- 

6- 

7- 

8- 

9- 

A- 

B- 

C- 

D- 

E- 

F- 

-0 

(SP) 

SP010000 

& 

SM030000 

SP100000 

0 

L0610000 

0 

L0620000 

[ 

SM060000 

p 

SM170000 

SC040000 

a 

LA130000 

e 

LE130000 

C 

LC410000 

0 

ND100000 

-1 

(RSP) 

SP300000 

] 

SM080000 

/ 

SP120000 

E 

LE120000 

a 

LAO 10000 

j 

LJ010Q00 

i 

LI130000 

# 

SM010000 

A 

LA020000 

J 

LJ020000 

SA060000 

1 

ND010000 

-2 

a 

LA150000 

e 

LE150000 

A 

LAI 60000 

E 

LE160000 

b 

LB010000 

k 

LK010000 

S 

LS010000 

¥ 

SC050000 

B 

LB020000 

K 

LK020000 

S 

LS020000 

2 

ND020000 


a 

LA170000 

e 

LE170000 

A 

LAI 80000 

E 

LE180000 

C 

LC010000 

1 

LL010000 

t 

LT010000 

SD630000 

C 

LC020000 

L 

LL020000 

T 

LT020000 

3 

ND030000 


{ 

SM110000 

} 

SM140000 

A 

L AMO 000 

E 

LE 140000 

d 

LD010000 

m 

LM010000 

U 

LU010000 

© 

SM520000 

D 

LD020000 

M 

LM020000 

U 

LU020000 

4 

ND040000 

B 

a 

LAI 10000 

1 

LI110000 

A 

LA120000 

I 

LI120000 

e 

LE010000 

n 

LNO10000 

V 

LVO10000 

@ 

SM050000 

E 

LE020000 

N 

LN020000 

V 

LV020000 

5 

ND050000 

-6 

a 

LA190000 

i 

LI150000 

A 

LA200000 

I 

LI160000 

f 

LF010000 

0 

LOOIOOOO 

W 

LW010Q00 

If 

SM250000 

F 

LF020000 

0 

L0020000 

W 

LW020000 

6 

ND060000 

B 

a 

LA270000 

i* 

LI170000 

o 

A 

LA280000 

I 

LI180000 

g 

LG010000 

P 

LP010000 

X 

LXO10000 

y 4 

NF040000 

G 

LG020000 

P 

LP020000 

X 

LX020000 

7 

ND070000 

-8 

\ 

SM070000 

SD190000 

Q 

LC420000 

i 

LI140000 

h 

LH010000 

q 

LQ010000 

y 

LYO10000 

y 2 

NFO10000 

H 

LH020000 

Q 

LQ020000 

Y 

LY020000 

8 

ND080000 

-9 

n 

LN190000 

B 

LS610000 

N 

LN200000 

U 

LU130000 

i 

LI010000 

r 

LRO10000 

Z 

LZ010000 

3 /4 

NF050000 

I 

LI020000 

R 

LR020000 

Z 

LZ020000 

9 

ND090000 

-A 

o 

SM190000 

e 

LEI 10000 

6 

L0130000 

SP130000 

« 

SP170000 

a 

SM210000 

1 

SP030000 

~1 

SM660000 

(SHY) 

SP320000 

1 

NDO11000 

2 

ND021000 

3 

ND031000 

-B 

SP110000 

$ 

SC030000 

9 

SP080000 

£ 

SC020000 

» 

SP180000 

0 

SM200000 

L 

SP160000 

1 

SM130000 

6 

L0150000 

U 

LU150000 

6 

L0160000 

0 

LU160000 

-C 

< 

SA030000 

* 

SM040000 

% 

SM020000 

§ 

SM240000 

5 

LD630000 

ae 

LA510000 

D 

LD620000 

SM150000 

6 

L0170000 

ix 

LU170000 

O 

L0180000 

U 

LU180000 

-D 

( 

SP060000 

) 

SP070000 

SP090000 

T 

SP050000 

/ 

y 

LYl 10000 

> 

SD410000 

f 

Y 

LY120000 

SD170000 

SM650000 

V 

SD130000 

6 

L0140000 

U 

LU140000 

-E 

+ 

SA010000 

? 

SP140000 

> 

SA050000 

SA040000 

1> 

LT630000 

m 

LA520000 

P 

LT640000 

/ 

SD110000 

6 

LOllOOOO 

U 

LU110000 

6 

L0120000 

U 

LU120000 

-F 

! 

SP020000 

A 

SD150000 

? 

SP150000 

tt 

SP040000 

+ 

SA020000 

n 

SC010000 

® 

SM530000 

X 

SA070000 

6 

L0190000 

y 

LY170000 

O 

L0200000 

(EOt 
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C.1.5 Sample Spanish Code Page 


HEX 

DIGITS 

1ST -+ 

2ND + 

4- 

5- 

6- 

7- 

8- 

9- 

A- 

B- 

C- 

D- 

E- 

F- 

-0 

(SP) 

& 

- 

0 

0 

o 

p 


{ 

} 

\ 

0 


SP010000 

SM030000 

SP100000 

L0610000 

L0620000 

SM190000 

SM170000 

SC040000 

SM110000 

SM140000 

SM070000 

ND100000 

-1 

(RSP) 

e 

/ 

E 

a 

j 


£ 

A 

J 

-J- 

1 


SP300000 

LEI 10000 

SP120000 

LE120000 

LAO 10000 

LJ010000 

SD170000 

SC020000 

LA020000 

LJ020000 

SA060000 

ND010000 

-2 

a 

e 

A 

E 

b 

k 

S 

¥ 

B 

K 

S 

2 


LA150000 

LE150000 

LAI 60000 

LE160000 

LB010000 

LK010000 

LS010000 

SC050000 

LB020000 

LK020000 

LS020000 

ND020000 

m 

a 

e 

A 

E 

C 

1 

t 

• 

C 

L 

T 

3 

SI 

LA170000 

LE170000 

LAI 80000 

LE180000 

LC010000 

LL010000 

LT010000 

SD630000 

LC020000 

LL020000 

LT020000 

ND030000 


a 

e 

A 

E 

d 

m 

U 

© 

D 

M 

U 

4 

HU 

LA130000 

LE130000 

L AMO 000 

LE 140000 

LD010000 

LM010000 

LU010000 

SM520000 

LD020000 

LM020000 

LU020000 

ND040000 


a 

1 

A 

I 

e 

n 

V 

§ 

E 

N 

V 

5 

SI 

LAI 10000 

LI110000 

LA120000 

LI120000 

LE010000 

LNO10000 

LVO10000 

SM240000 

LE020000 

LN020000 

LV020000 

ND050000 

-6 

a 

i 

A 

I 

f 

0 

W 

If 

F 

0 

W 

6 


LA190000 

LI150000 

LA200000 

LI160000 

LF010000 

LOOIOOOO 

LW01000Q 

SM250000 

LF020000 

L0020000 

LW020000 

ND060000 

g 

a 

1 

o 

A 

I 

g 

P 

X 

Va 

G 

P 

X 

7 

■Ifl 

LA270000 

LI170000 

LA280000 

LI180000 

LG010000 

LP010000 

LXO10000 

NF040000 

LG020000 

LP020000 

LX020000 

ND070000 

-8 

5 

I 

Q 

i 

h 

q 

y 

‘/a 

H 

Q 

Y 

8 


LC410000 

LI130000 

LC420000 

LI140000 

LH010000 

LQ010000 

LYO10000 

NFO10000 

LH020000 

LQ020000 

LY020000 

ND080000 

-9 

: 

B 

# 

X 

i 

r 

Z 

3 /4 

I 

R 

Z 

9 


SM650000 

LS610000 

SM010000 

SD130000 

LI010000 

LRO10000 

LZ010000 

NF050000 

LI020000 

LR020000 

LZ020000 

ND090000 

-A 

[ 

] 

n 


« 

a 

i 

A 

(SHY) 

1 

2 

3 


SM060000 

SM080000 

LN190000 

SP130000 

SP170000 

SM210000 

SP030000 

SD150000 

SP320000 

NDO11000 

ND021000 

ND031000 

-B 


$ 

9 

N 

» 

0 

L 

! 

6 

U 

6 

0 


SP110000 

SC030000 

SP080000 

LN200000 

SP180000 

SM200000 

SP160000 

SP020000 

L0150000 

LU150000 

L0160000 

LU160000 

-C 

< 

* 

% 

@ 

5 

ae 

D 

- 

6 

ix 

O 

U 


SA030000 

SM040000 

SM020000 

SM050000 

LD630000 

LA510000 

LD620000 

SM150000 

L0170000 

LU170000 

L0180000 

LU180000 

-D 

( 

) 


T 

/ 

y 

> 

/ 

Y 


6 

u 

6 

U 


SP060000 

SP070000 

SP090000 

SP050000 

LYl 10000 

SD410000 

LY120000 

SD190000 

L0130000 

LU130000 

L0140000 

LU140000 

-E 

+ 

? 

> 

= 

1> 

m 

P 

/ 

6 

U 

6 

U 

SA010000 

SP140000 

SA050000 

SA040000 

LT630000 

LA520000 

LT640000 

SD110000 

LOllOOOO 

LU110000 

L0120000 

LU120000 

-F 

1 

“1 

? 

tt 

+ 

n 

® 

X 

6 

y 

O 

fcAj 


SM130000 

SM660000 

SP150000 

SP040000 

SA020000 

SC010000 

SM530000 

SA070000 

L0190000 

LY170000 

L0200000 

vii-vy 
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C.1.6 Sample French Code Page 


HEX 

DIGITS 

1ST -+ 

2ND + 

4- 

5- 

6- 

7- 

8- 

9- 

A- 

B- 

C- 

D- 

E- 

F- 

-0 

(SP) 

SP010000 

& 

SM030000 

SP100000 

0 

L0610000 

0 

L0620000 

[ 

SM060000 

> 

SD130000 

SC040000 

e 

LE110000 

e 

LE130000 

C 

LC410000 

0 

ND100000 

-1 

(RSP) 

SP300000 

{ 

SM110000 

/ 

SP120000 

E 

LE120000 

a 

LAO 10000 

j 

LJ010000 

SD170000 

# 

SM010000 

A 

LA020000 

J 

LJ020000 

SA060000 

1 

ND010000 

-2 

a 

LA150000 

e 

LE150000 

A 

LAI 60000 

E 

LE160000 

b 

LB010000 

k 

LK010000 

S 

LS010000 

¥ 

SC050000 

B 

LB020000 

K 

LK020000 

S 

LS020000 

2 

ND020000 


a 

LA170000 

e 

LE170000 

A 

LAI 80000 

E 

LE180000 

C 

LC010000 

1 

LL010000 

t 

LT010000 

SD630000 

C 

LC020000 

L 

LL020000 

T 

LT020000 

3 

ND030000 


@ 

SM050000 

} 

SM140000 

A 

L AMO 000 

E 

LE 140000 

d 

LD010000 

m 

LM010000 

U 

LU010000 

© 

SM520000 

D 

LD020000 

M 

LM020000 

U 

LU020000 

4 

ND040000 

B 

a 

LAI 10000 

1 

LI110000 

A 

LA120000 

I 

LI120000 

e 

LE010000 

n 

LNO10000 

V 

LVO10000 

] 

SM080000 

E 

LE020000 

N 

LN020000 

V 

LV020000 

5 

ND050000 

-6 

a 

LA19QQ0Q 

i 

LI150000 

A 

LA200000 

I 

LI160000 

f 

LF010000 

0 

LOOIOOOO 

W 

LW010000 

If 

SM250000 

F 

LF020000 

0 

L0020000 

W 

LW020000 

6 

ND060000 

B 

a 

LA270000 

1 

LI170000 

o 

A 

LA280000 

I 

LI180000 

g 

LG010000 

P 

LP010000 

X 

LXO10000 

y 4 

NF040000 

G 

LG020000 

P 

LP020000 

X 

LX020000 

7 

ND070000 

-8 

\ 

SM070000 

i 

LI130000 

Q 

LC420000 

i 

LI140000 

h 

LH010000 

q 

LQ010000 

y 

LYO10000 

y 2 

NFO10000 

H 

LH020000 

Q 

LQ020000 

Y 

LY020000 

8 

ND080000 

-9 

n 

LN190000 

B 

LS610000 

N 

LN200000 

n 

SM170000 

i 

LI010000 

r 

LRO10000 

Z 

LZ010000 

3 /4 

NF050000 

I 

LI020000 

R 

LR020000 

Z 

LZ020000 

9 

ND090000 

-A 

o 

SM190000 

§ 

SM240000 

U 

LU130000 

SP130000 

« 

SP170000 

a 

SM210000 

1 

SP030000 

~1 

SM660000 

(SHY) 

SP320000 

1 

NDO11000 

2 

ND021000 

3 

ND031000 

-B 

SP110000 

$ 

SC030000 

9 

SP080000 

£ 

SC020000 

» 

SP180000 

0 

SM200000 

L 

SP160000 

1 

SM130000 

6 

L0150000 

U 

LU150000 

6 

L0160000 

0 

LU160000 

-C 

< 

SA030000 

* 

SM040000 

% 

SM020000 

a 

LAI 30000 

5 

LD630000 

ae 

LA510000 

D 

LD620000 

SM150000 

6 

L0170000 

ix 

LU170000 

O 

L0180000 

U 

LU180000 

-D 

( 

SP060000 

) 

SP070000 

SP090000 

T 

SP050000 

/ 

y 

LYl 10000 

> 

SD410000 

/ 

Y 

LY120000 

SD190000 

6 

L0130000 

SM650000 

6 

L0140000 

U 

LU140000 

-E 

+ 

SA010000 

? 

SP140000 

> 

SA050000 

SA040000 

1> 

LT630000 

m 

LA520000 

P 

LT640000 

t 

SD110000 

6 

LOllOOOO 

U 

LU110000 

6 

L0120000 

U 

LU120000 

-F 

! 

SP020000 

A 

SD150000 

? 

SP150000 

tt 

SP040000 

+ 

SA020000 

n 

SC010000 

® 

SM530000 

X 

SA070000 

6 

L0190000 

y 

LY170000 

O 

L0200000 

(EOt 
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C.1.7 Sample English PC Code Page 


HEX 

DIGITS 

1ST -+ 

2ND + 

0- 

1- 

2- 

3- 

4- 

5- 

6- 

7- 

8- 

9- 

A- 

B- 

C- 

D- 

E- 

F- 

-0 


SM590000 

(SP) 

SP010000 

0 

ND100000 

@ 

SM050000 

P 

LP020000 

\ 

SD130000 

p 

LP010000 

C 

LC420000 

E 

LE120000 

a 

LAI 10000 

SF140000 

R 

SF020000 

pq 

SF46OO0O 

a 

GA010000 

SA480000 

-1 

© 

ssoooooo 

SM630Q00 

! 

SP020000 

1 

ND010000 

A 

LA020000 

Q 

LQ020000 

a 

LAO 10000 

q 

LQ010000 

ii 

LU170000 

ae 

LA510000 




SF47bb00 

B 

LS610000 

± 

SA020000 

-2 

e 

SS010000 

t 

SM760000 

Tf 

SP04Q000 

2 

ND020000 

B 

LB020000 

R 

LR020000 

b 

LB010000 

r 

LR010000 

e 

LEI 10000 

JE 

LA520000 

6 

LOllOOQO 

SF160000 

rri 

SF060000 

nri 

SF480000 

r 

GG020000 

> 

SA530000 


Y 

SS020000 

jf 

SP330000 

# 

SM010000 

3 

ND030000 

C 

LC020000 

S 

LS020000 

C 

LC010000 

S 

LS010000 

a 

LA150000 

6 

L0150000 

u 

LU110000 

EE 

SF110000 

b 

SF080000 

ruq 

SF490000 

% 

GPO10000 

< 

SA520000 


♦ 

SS030000 

1 

SM250000 

$ 

SC030000 

4 

ND040000 

D 

LD020000 

T 

LT020000 

d 

LD010000 

t 

LT010000 

a 

LA170000 

6 

L0170000 

n 

LN190000 

H 

SF090000 

SF 100000 

j"Q 

SF500000 

2 

GS020000 

r 

SS260000 

B 

* 

SS040000 

§ 

SM2400C0 

% 

SM020000 

5 

ND050000 

E 

LE020000 

U 

LU020000 

e 

LE010000 

U 

LU010000 

a 

LA130000 

6 

LO130000 

N 

LN200000 

Hi 

SF190000 

EB 

SF050000 

ih 

SF510000 

a 

GS010000 

J 

SS270000 

-6 

* 

SS050000 

SM700000 

& 

SM030000 

6 

ND060000 

F 

LF020000 

V 

LV020000 

f 

LF010000 

V 

LVO10000 

a 

LA270000 

u 

LU150000 

a 

SM210000 

HI. 

SF200000 

Lfl 

SF360000 



SA060000 

B 

• 

SM570000 

1 

SM770000 

T 

SP050000 

7 

ND070000 



g 

LG010000 

W 

LW010000 

c 

LC410000 

u 

LU130000 

0 

SM200000 

hi 

SF210000 

lie 

SF370000 

o 


/"Vx 

SA700000 

-8 

□ 

SM570001 

t 

SM320000 

( 

SP060000 

8 

ND080000 

H 

LH020000 

X 

LX020000 

h 

LH010000 

X 

LXO10000 

e 

LE150000 

y 

LY170000 

l 

SP160000 

hi 

SF220000 

IL 

SF380000 

EH 

SF540000 

O 

GF020000 

0 

SM190000 

-9 

o 

SM750000 

1 

SM330000 

) 

SP070000 

9 

ND090000 

I 

LI020000 

Y 

LY020000 

i 

LI010000 

y 

LY010000 

e 

LE170000 

O 

L0180000 

r~ 

SM680000 

DIE 

nl.i 

SF230000 

LIE 

SF390000 

U'l 

SF040000 

0 

GT620000 

• 

SA790000 

-A 

SI 

SM750002 

—> 

SM310000 

* 

SM 040000 

SP130000 

J 

LJ020000 

Z 

LZ020000 

j 

LJ010000 

Z 

LZ010000 

e 

LE130000 

ii 

LU180000 

SM660000 

Ell] 

SF240000 

JL 

SF400bbo 

Lri 

SF010000 

Q 

G0320000 

SD630000 

-B 

& 

SM280000 

SM300000 

+ 

SAO10000 

9 

SP140000 

K 

LK020000 

[ 

SM060000 

k 

LK010000 

{ 

SM110000 

*i 

LI170000 

SC040000 

y 2 

NF010000 

hi 

SF250000 

nn 

SF410000 

■ 

SF610000 

6 

GD010000 

V 

SA800000 

-C 

$ 

SM290000 

L 

SA420000 

9 

SP080000 

< 

SA030000 

L 

LL020000 

\ 

SM070000 

1 

LL010000 

SM130000 

i 

LI150000 

£ 

SC020000 

y 4 

NF040000 

=u 

SF260000 

IL 

i.Jn 

SF420000 

SF570000 

00 

SA450000 

n 

LN011000 

-D 

SM930000 

<-> 

SM780000 

SP100000 

SA040000 

M 

LM020000 

] 

SM080000 

m 

LM010000 

} 

SM140000 

i 

LI130000 

¥ 

SC050000 

i 

SP030000 

-U 

SF270000 

SF430b + 00 

l 

SF580000 

<f> 

GFO10001 

2 

ND02100C 

-E 

SM910000 

▲ 

SM600000 

SP110000 

> 

SA050000 

N 

LN020000 

A 

SD150000 

n 

LN010000 

SD190000 

A 

LA180000 

Prs 

SC060000 

« 

SP170000 

SF280000 

JL 

nn 

SF440000 

1 

SF590000 

£ 

GE010000 

■ 

SM470000 

-F 

SM6900Q0 

▼ 

SV040000 

/ 

SP120000 

? 

SP150000 

O 

L0020000 

SP090000 

0 

LOOIOOOO 

A 

SM790000 

o 

A 

LA280000 

/ 

SC070000 

» 

SP180000 

hi 

SF030000 

SF450000 

SF600000 

n 

SA380000 

(RSP) 

SP300000 
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C.1.8 Sample International Code Page 


HEX 

DIGITS 

1ST -+ 

2ND + 

4- 

5- 

6- 

7- 

8- 

9- 

A- 

B- 

C- 

D- 

E- 

F- 

-0 

(SP) 

SP010000 

& 

SM030000 

SP100000 

0 

L0610000 

0 

L0620000 

o 

SM190000 

p 

SM170000 

SC040000 

{ 

SM110000 

} 

SM140000 

\ 

SM070000 

0 

ND100000 

-1 

(RSP) 

SP300000 

e 

LEI 10000 

/ 

SP120000 

E 

LE120000 

a 

LAO 10000 

j 

LJ010000 

SD190000 

£ 

SC020000 

A 

LA020000 

J 

LJ020000 

SA060000 

1 

ND010000 

-2 

a 

LA150000 

e 

LE150000 

A 

LAI 60000 

E 

LE160000 

b 

LB010000 

k 

LK010000 

S 

LS010000 

¥ 

SC050000 

B 

LB020000 

K 

LK020000 

S 

LS020000 

2 

ND020000 


a 

LA170000 

e 

LE170000 

A 

LAI 80000 

E 

LE180000 

C 

LC010000 

1 

LL010000 

t 

LT010000 

SD630000 

C 

LC020000 

L 

LL020000 

T 

LT020000 

3 

ND030000 


a 

LA130000 

e 

LE130000 

A 

L AMO 000 

E 

LE 140000 

d 

LD010000 

m 

LM010000 

U 

LU010000 

© 

SM520000 

D 

LD020000 

M 

LM020000 

U 

LU020000 

4 

ND040000 

B 

a 

LAI 10000 

1 

LI110000 

A 

LA120000 

I 

LI120000 

e 

LE010000 

n 

LNO10000 

V 

LVO10000 

§ 

SM240000 

E 

LE020000 

N 

LN020000 

V 

LV020000 

5 

ND050000 

-6 

a 

LA19QQ0Q 

i 

LI150000 

A 

LA200000 

I 

LI160000 

f 

LF010000 

0 

LOOIOOOO 

W 

LW010Q00 

If 

SM250000 

F 

LF020000 

0 

L0020000 

W 

LW020000 

6 

ND060000 

B 

a 

LA270000 

1 

LI170000 

o 

A 

LA280000 

I 

LI180000 

g 

LG010000 

P 

LP010000 

X 

LXO10000 

Va 

NF040000 

G 

LG020000 

P 

LP020000 

X 

LX020000 

7 

ND070000 

-8 

5 

LC410000 

i 

LI130000 

Q 

LC420000 

i 

LI140000 

h 

LH010000 

q 

LQ010000 

y 

LYO10000 

y 2 

NFO10000 

H 

LH020000 

Q 

LQ020000 

Y 

LY020000 

8 

ND080000 

-9 

n 

LN190000 

B 

LS610000 

N 

LN200000 

X 

SD130000 

i 

LI010000 

r 

LRO10000 

Z 

LZ010000 

3 /4 

NF050000 

I 

LI020000 

R 

LR020000 

Z 

LZ020000 

9 

ND090000 

-A 

[ 

SM060000 

] 

SM080000 

SM650000 

SP130000 

« 

SP170000 

a 

SM210000 

1 

SP030000 

~1 

SM660000 

(SHY) 

SP320000 

1 

NDO11000 

2 

ND021000 

3 

ND031000 

-B 

SP110000 

$ 

SC030000 

9 

SP080000 

# 

SM010000 

» 

SP180000 

0 

SM200000 

L 

SP160000 

1 

SM130000 

6 

L0150000 

U 

LU150000 

6 

L0160000 

0 

LU160000 

-C 

< 

SA030000 

* 

SM040000 

% 

SM020000 

@ 

SM050000 

5 

LD630000 

ae 

LA510000 

D 

LD620000 

SM150000 

6 

L0170000 

ix 

LU170000 

O 

L0180000 

U 

LU180000 

-D 

( 

SP060000 

) 

SP070000 

SP090000 

T 

SP050000 

/ 

y 

LYl 10000 

> 

SD410000 

f 

Y 

LY120000 

SD170000 

6 

L0130000 

u 

LU130000 

6 

L0140000 

U 

LU140000 

-E 

+ 

SA010000 

? 

SP140000 

> 

SA050000 

SA040000 

1> 

LT630000 

m 

LA520000 

P 

LT640000 

f 

SD110000 

6 

LOllOOOO 

U 

LU110000 

6 

L0120000 

U 

LU120000 

-F 

! 

SP020000 

A 

SD150000 

? 

SP150000 

tt 

SP040000 

+ 

SA020000 

n 

SC010000 

® 

SM530000 

X 

SA070000 

6 

L0190000 

y 

LY170000 

O 

L0200000 

(EOt 
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C.2 Sample Latin-2 Code Page 


HEX 

DIGITS 

1ST -+ 

2ND 4' 

4- 

5- 

6- 

7- 

8- 

9- 

A- 

B- 

C- 

D- 

E- 

F- 

-0 

(SP) 

& 

- 

V 

- 

o 

q 

• 

{ 

} 

\ 

0 


SPO10000 

SM030000 

SP100000 

SD210000 

SD230000 

SM190000 

LA430000 

SD290000 

SMI 10000 

SM140000 

SM070000 

ND100000 

m 

(RSP) 

e 

/ 

E 

a 

j 


A 

A 

J 


1 


SP300000 

LE110000 

SP120000 

LE120000 

LAO 10000 

LJ010000 

SD190000 

LA44Q000 

LA020000 

LJ020000 

SA060000 

ND010000 

-2 

a 

e 

A 

E 

b 

k 

S 

z 

B 

K 

S 

2 


LA150000 

LE430000 

LAI 60000 

LE440000 

LB010000 

LK010000 

LS010000 

LZ290000 

LB020000 

LK020000 

LS020000 

ND020000 

m 

a 

e 

A 

E 

C 

1 

t 

T 

C 

L 

T 

3 

ififl 

LA170000 

LE170000 

LAI 80000 

LE180000 

LC010000 

LL010000 

LT010000 

LT420000 

LC020000 

LL020000 

LT020000 

ND030000 



o 

u 

ft 

o 

U 

d 

m 

U 

Z 

D 

M 

U 

4 

HU 

LT410000 

LU270000 

SD250000 

LU280000 

LD010000 

LM010000 

LU010000 

LZ300000 

LD020000 

LM020000 

LU020000 

ND040000 


a 

1 

A 

I 

e 

n 

V 

§ 

E 

N 

V 

5 

HbA 

LAI 10000 

LI110000 

LA120000 

LI120000 

LE010000 

LN010000 

LVO10000 

SM240000 

LE020000 

LN020000 

LV020000 

ND050000 

-6 

a 

i 

A 

I 

f 

0 

W 

Z 

F 

0 

w 

6 


LA230000 

LI150000 

LA240000 

LI160000 

LF010000 

LOOIOOOO 

LW010000 

LZ210000 

LF020000 

L0020000 

LW020000 

ND060000 

m 

c 

I 

C 

L 

g 

P 

X 

z 

G 

P 

X 

7 

mm 

LC210000 

LL210000 

LC220000 

LL220000 

LG010000 

LP010000 

LXO10000 

LZ110000 

LG020000 

LP020000 

LX020000 

ND070000 

-8 

e 

1 

Q 

L 

h 

q 

y 

Z 

H 

Q 

Y 

8 


LC410000 

LL110000 

LC420000 

LL120000 

LH010000 

LQ010000 

LYO10000 

LZ220000 

LH020000 

LQ020000 

LY020000 

ND080000 

-9 

c 

B 

C 

\ 

i 

r 

Z 

Z 

I 

R 

Z 

9 


LC110000 

LS610000 

LC120000 

SD130000 

LI010000 

LRO10000 

LZO10000 

LZ120000 

LI020000 

LR020000 

LZ020000 

ND090000 

-A 

[ 

] 

| 


S 

1 

S 

L 

(SHY) 

E 

d 

D 


SM060000 

SM0S0000 

SM130000 

SP130000 

LS110000 

LL610000 

LS120000 

LL620000 

SP320000 

LE220000 

LD210000 

LD220000 

-B 


$ 

9 

# 

n 

n 

N 

N 

6 

u 

6 

U 


SP110000 

SC030000 

SPO80000 

SM010000 

LN210000 

LN110000 

LN220000 

LN120000 

L0150000 

LU250000 

L0160000 

LU260000 

-C 

< 

* 

% 

@ 

d 

S 

D 

S 

6 

ix 

O 

U 


SA030000 

SM040000 

SM020000 

SM050000 

LD610000 

LS210000 

LD620000 

LS220000 

L0170000 

LU170000 

L0180000 

LU180000 

-D 

( 

) 


T 

t 

y 


f 

Y 


r 

t 

R 

T 


SP060000 

SP070000 

SP090000 

SP050000 

LYl 10000 

SD410000 

LY120000 

SD170000 

LR110000 

LT210000 

LR120000 

LT220000 

-E 

+ 

? 

> 

= 

r 

L. 

R 

f 

6 

u 

6 

U 


SA010000 

SP140000 

SA050000 

SA040000 

LR210000 

SD430000 

LR220000 

SD110000 

LOllOOOO 

LU110000 

L0120000 

LU120000 

-F 

T 

SP020000 

A 

SD150000 

? 

SP150000 

It 

SP040000 

§ 

LS410000 

n 

SC010000 

§ 

LS420000 

X 

SA070000 

6 

L0250000 

e 

LE210000 

6 

L0260000 

(EO) 
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Appendix D. Special Notices 


This publication is intended to provide customers and IBM systems engineers 
with guidance in the setup and usage of multi-language in C/S environments. 

The information in this publication is not intended as the specification of any 
programming interfaces that are provided by SQL/DS 3.5, DB2/6000 and DB2/2. 

See the PUBLICATIONS section of the IBM Programming Announcements for 
SQL/DS 3.5, DB2/6000 and DB2/2 for more information about what publications 
are considered to be product documentation. 

References in this publication to IBM products, programs or services do not 
imply that IBM intends to make these available in all countries in which IBM 
operates. Any reference to an IBM product, program, or service is not intended 
to state or imply that only IBM's product, program, or service may be used. Any 
functionally equivalent program that does not infringe any of IBM's intellectual 
property rights may be used instead of the IBM product, program or service. 

Information in this book was developed in conjunction with use of the equipment 
specified, and is limited in application to those specific hardware and software 
products and levels. 

IBM may have patents or pending patent applications covering subject matter in 
this document. The furnishing of this document does not give you any license to 
these patents. You can send license inquiries, in writing, to the IBM Director of 
Licensing, IBM Corporation, 500 Columbus Avenue, Thornwood, NY 10594 USA. 

Licensees of this program who wish to have information about it for the purpose 
of enabling: (i) the exchange of information between independently created 
programs and other programs (including this one) and (ii) the mutual use of the 
information which has been exchanged, should contact IBM Corporation, Dept. 
600A, Mail Drop 1329, Somers, NY 10589 USA. 

Such information may be available, subject to appropriate terms and conditions, 
including in some cases, payment of a fee. 

The information contained in this document has not been submitted to any 
formal IBM test and is distributed AS IS. The information about non-IBM 
("vendor") products in this manual has been supplied by the vendor and IBM 
assumes no responsibility for its accuracy or completeness. The use of this 
information or the implementation of any of these techniques is a customer 
responsibility and depends on the customer's ability to evaluate and integrate 
them into the customer's operational environment. While each item may have 
been reviewed by IBM for accuracy in a specific situation, there is no guarantee 
that the same or similar results will be obtained elsewhere. Customers 
attempting to adapt these techniques to their own environments do so at their 
own risk. 

The following document contains examples of data and reports used in daily 
business operations. To illustrate them as completely as possible, the examples 
contain the names of individuals, companies, brands, and products. All of these 
names are fictitious and any similarity to the names and addresses used by an 
actual business enterprise is entirely coincidental. 
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The following terms are trademarks of the International Business Machines 
Corporation in the United States and/or other countries: 


ACF/VTAM 

APPN 

CICS/ESA 

CUA 

DB2 

DB2/6000 

IBM 

IMS 

OPC 

OS/390 

Presentation Manager 

RACF 

S/390 

SQL/DS 

VALE 

VSE/ESA 

3090 


AIX 

CICS 

CICS/VSE 

Current 

DB2/2 

DRDA 

ILE 

ISSC 

OS/2 

OS/400 

PS/2 

RISC System/6000 
SAA 

System/390 

VM/ESA 

VTAM 


The following terms are trademarks of other companies: 


C-bus 

DOS 

HP 

Intel 

PC Direct 

SX 

UNIX 

Windows, Windows 95 logo 

386 

486 


Corollary, Inc. 

Microsoft Corporation 
Hewlett-Packard Company 
Intel Corporation 

Ziff Communications Company (used by IBM Corporation 
under license) 

Intel Corporation 

X/Open Company Ltd. (registered trademark in the United 
States and other countries) 

Microsoft Corporation 
Intel Corporation 
Intel Corporation 
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Appendix E. Related Publications 


The publications listed in this section are considered particularly suitable for a 
more detailed discussion of the topics covered in this redbook. 


E.1 International Technical Support Organization Publications 

For information on ordering these ITSO publications see “How To Get ITSO 
Redbooks” on page 259. 

• Distributed Relational Database Cross Platform Connectivity and Application, 
SG24-4311 

• Setup and Usage of SQL/DS in a DRDA Environment, GG24-3733 


E.2 Redbooks on CD-ROMs 

Redbooks are also available on CD-ROMs. Order a subscription and receive 
updates 2-4 times a year at significant savings. 


CD-ROM Title 

Subscription 

Collection Kit 


Number 

Number 

System/390 Redbooks Collection 

SBOF-7201 

SK2T-21 77 

Networking and Systems Management Redbooks Collection 

SBOF-7370 

SK2T-6022 

Transaction Processing and Data Management Redbook 

SBOF-7240 

SK2T-8038 

AS/400 Redbooks Collection 

SBOF-7270 

SK2T-2849 

RISC System/6000 Redbooks Collection (HTML, BkMgr) 

SBOF-7230 

SK2T-8040 

RISC System/6000 Redbooks Collection (PostScript) 

SBOF-7205 

SK2T-8041 

Application Development Redbooks Collection 

SBOF-7290 

SK2T-8037 

Personal Systems Redbooks Collection 

SBOF-7250 

SK2T-8042 


E.3 Other Publications 

For a more detailed discussion of the topics covered in this document, please 
refer to the platform related publications, such as: 

• DB2 for MVS 

• DB2 for VSE & VM 

• DB2 for Common Server (OS/2, AIX, Windows, HP-UX, and Solaris) 

• DB2 for OS/400 

The following publications are also relevant as further information sources. 

• Distributed Relational Database Architecture Reference, SC26-4651 

• Distributed Relational Database Architecture Connectivity Guide, SC26-4783 

• Character Data Representation Architecture Reference and Registry, 
SC09-2190 

• Character Data Representation Architecture Level 2, SC09-1390 
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How To Get ITSO Redbooks 


This section explains how both customers and IBM employees can find out about ITSO redbooks, CD-ROMs, 
workshops, and residencies. A form for ordering books and CD-ROMs is also provided. 

This information was current at the time of publication, but is continually subject to change. The latest 
information may be found at URL http://www.redbooks.ibm.com. 


How IBM Employees Can Get ITSO Redbooks 

Employees may request ITSO deliverables (redbooks, BookManager BOOKS, and CD-ROMs) and information about 
redbooks, workshops, and residencies in the following ways: 

• PUBORDER — to order hardcopies in United States 

• GOPHER link to the Internet - type GOPHER.WTSCPOK. ITSO. IBM.CCM 

• Tools disks 

To get LIST3820s of redbooks, type one of the following commands: 

TOOLS SENDTO EH0NE4 T00LS2 REDPRINT GET SG24xxxx PACKAGE 

TOOLS SENDTO CANVM2 TOOLS REDPRINT GET SG24xxxx PACKAGE (Canadian users only) 

To get lists of redbooks: 

TOOLS SENDTO WTSCPOK TOOLS REDBOOKS GET REDBOOKS CATALOG 
TOOLS SENDTO USDIST MKTTOOLS MKTTOOLS GET ITSOCAT TXT 
TOOLS SENDTO USDIST MKTTOOLS MKTTOOLS GET LISTSERV PACKAGE 

To register for information on workshops, residencies, and redbooks: 

TOOLS SENDTO WTSCPOK TOOLS ZDISK GET ITSOREGI 1996 

For a list of product area specialists in the ITSO: 

TOOLS SENDTO WTSCPOK TOOLS ZDISK GET ORGCARD PACKAGE 

• Redbooks Home Page on the World Wide Web 

http://w3.itso.ibm.com/redbooks 

• IBM Direct Publications Catalog on the World Wide Web 

http://www.elink.ibmlink.ibm.com/pbl/pbl 

IBM employees may obtain LIST3820S of redbooks from this page. 

• REDBOOKS category on INEWS 

• Online — send orders to: USIB6FPL at IBMMAIL or DKIBMBSH at IBMMAIL 

• Internet Listserver 

With an Internet E-mail address, anyone can subscribe to an IBM Announcement Listserver. To initiate the 
service, send an E-mail note to announce@webster.ibmlink.ibm.com with the keyword subscribe in the body of 
the note (leave the subject line blank). A category form and detailed instructions will be sent to you. 
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How Customers Can Get ITSO Redbooks 


Customers may request ITSO deliverables (redbooks, BookManager BOOKS, and CD-ROMs) and information about 
redbooks, workshops, and residencies in the following ways: 

• Online Orders (Do not send credit card information over the Internet) — send orders to: 


In United States: 

In Canada: 

Outside North America: 

• Telephone orders 

United States (toll free) 

Canada (toll free) 

Outside North America 
(+45) 4810-1320 - Danish 
(+45) 4810-1420 - Dutch 
(+45) 4810-1540 - English 
(+45) 4810-1670 - Finnish 
(+45) 4810-1220 - French 

• Mail Orders — send orders to: 

IBM Publications 
Publications Customer Support 
P.O. Box 29570 
Raleigh, NC 27626-0570 
USA 

• Fax — send orders to: 

United States (toll free) 

Canada 

Outside North America 


IBMMAIL 

usib6fpl at ibmmail 
caibmbkz at ibmmail 
dkibmbsh at ibmmail 


Internet 

usib6fpl@ibmmail.com 

lmannix@vnet.ibm.com 

bookshop@dk.ibm.com 


1-800-879-2755 
1-800-IBM-4YOU 

(long distance charges apply) 
(+45) 4810-1020 - German 
(+45) 4810-1620 - Italian 
(+45) 4810-1270 - Norwegian 
(+45) 4810-1 120 - Spanish 
(+45) 4810-1170 - Swedish 


IBM Publications 
144-4th Avenue, S.W. 
Calgary, Alberta T2P 3N5 
Canada 


IBM Direct Services 
Sortemosevej 21 
DK-3450 Allerod 
Denmark 


1-800-445-9269 

1-403-267-4455 

(+45) 48 14 2207 (long distance charge) 


• 1-800-IBM-4FAX (United States) or (+1) 415 855 43 29 (Outside USA) — ask for: 

Index # 4421 Abstracts of new redbooks 

Index # 4422 IBM redbooks 

Index # 4420 Redbooks for last six months 

• Direct Services - send note to softwareshop@vnet.ibm.com 

• On the World Wide Web 

Redbooks Home Page http://www.redbooks.ibm.com 

IBM Direct Publications Catalog http://www.elink.ibmlink.ibm.com/pbl/pbl 

• Internet Listserver 

With an Internet E-mail address, anyone can subscribe to an IBM Announcement Listserver. To initiate the 
service, send an E-mail note to announce@webster.ibmlink.ibm.com with the keyword subscribe in the body of 
the note (leave the subject line blank). 
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IBM Redbook Order Form 

Please send me the following: 

Title Order Number Quantity 


• Please put me on the mailing list for updated versions of the IBM Redbook Catalog. 


First name 

Last name 


Company 

Address 

City 

Postal code 

Country 

Telephone number 

Telefax number 

VAT number 

• Invoice to customer number 




• Credit card number 


Credit card expiration date Card issued to Signature 

We accept American Express, Diners, Eurocard, Master Card, and Visa. Payment by credit card not 
available in all countries. Signature mandatory for credit card payment. 

DO NOT SEND CREDIT CARD INFORMATION OVER THE INTERNET. 
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List of Abbreviations 


AMODE 

APAR 

API 

APPC 

APPLID 

APPN 

ASCII 

A VS 
BIND 

BIT 

BLOB 

BP 

CAE 

CCSID 

CDRA 

CDRM 

CDRSC 

CEDA 

CEMT 

CET 

CF 

CICS 

CLP 

CMS 

CNOS 

COBOL 

COS 

CP 

CPI 


Advanced Interactive 
executive 

Addressing mode 

Authorized program analysis 
report 

Application Program Interface 
Advanced 

Prog ram-to-Prog ram 
Communication 

Application identifier 

Advanced Peer-to-Peer 
Networking 

American National Standard 
Code for Information 
Interchange 

APPC/VM VTAM support 

Request to activate a session 
between two LUs 

Binary digit 

Binary large object 

Business partner 

Client Application Enabler 

Coded character set identifier 

Character data 
representation architecture 

Cross-domain resource 
manager 

Cross-domain resources 

Resource Definition Online 
Transaction 

Master Terminal Transaction 

Central European Time 

Communications facility 

Customer Information Control 
System 

Control language procedure 

Conversational Monitor 
System 

Change number of sessions 

COmmon Business Oriented 
Language 

Customer order services 

Control point 

Common Programming 
Interface 


CPIC 

CPU 

cu 

DB 

DBA 

DBCS 

DBN 

DBS 

DB2 

DCB 

DCS 

DDCS 

DE 

DF 

DLC 

DML 

DML 

DOS 

DP 

DRDA 

EBCDIC 

EN 

ESA 

FD: OCA 

GCS 

HP-UX 

HW 

I/O 

I/S 

l/T 

IBM 


IPF 


Common Programming 
Interface for Communications 

Central Processing Unit 

Control Unit 

Data base 

Data base administrator 

Data base control system 

Database name 

Data base support/system 

DATABASE 2 

Data control buffer 

Data communications system 
Database connection services 

Distributed database 
connection services 

Data entry 

Data facility 

Data link control 

Data manipulation language 

Dialogue manager link 

Disk Operating System 

Data processing 

Distributed Relational 
Database Architecture 

Extended binary coded 
decimal interchange code 

End node 

Enterprise Systems 
Architecture 

Formatted Data Object 
Content Architecture 

Group Control System 

Fiewlett-Packard UNIX 

Plardware 

Input/output 

Information systems 

Information technology 

International Business 
Machines 

Institute of Electrical and 
Electronics Engineers 

interactive productivity 
facility 
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ISO 

International Organization for 
Standardization 

ISQL 

Interactive structured query 
language 

ITSO 

International Technical 

Support Organization 

IUCV 

Inter-User Communication 

Vehicle 

JCL 

Job control language 

LAN 

Local Area Network 

LC 

Line control 

LEN 

Low End Network 

LINE 

An SNA resource related to a 

link 

LRECL 

Logical record length 

LU 

Logical Unit 

LUW 

Logical units of work 

LI 

Level one cache 

MAC 

Medium access control 

MAC LIB 

Macro library 

MPTS 

Multiple Protocol Transport 
Services 

MVS 

Multiple Virtual Storage 

NCP 

Network control Program 

NDIS 

Network driver interface 
specification 

NETBIOS 

NETwork Basic Input Output 
System 

NETID 

Network identification 

NETVIEW 

Network observation tool 

NLS 

National Language Support 

NMVT 

Network management vector 
transport 

NN 

Network node 

NPM 

Network performance monitor 

OS/400 

Operating System for AS/400 

OS2 

Operating System 2 

PC 

Personal Computer 

PCCU 

Primary communication 
control unit 

PCT 

Program control table 

PID 

Partition identifier 

PIU 

Path information unit 

PM 

Performance monitoring 

PNET 

Power NETworking interface 

PS 

Personal System 


PS/2 

IBM Personal System/2 

PU 

Physical Unit 

PVM 

Pass through Virtual Machine 

R/O 

Read-only 

RACF 

Resource Access Control 
Facility 

RC 

Return code 

RDBMS 

Relational database 
management system 

RDO 

Resource definition on-line 

REXX 

REstructured extended 
eXecutor Language 

RISC 

Reduced Instruction-Set 
Computer 

RLD 

Relocation dictionary 

RMODE 

Residency mode 

RSCS 

Remote Spooling 
Communications Subsystem 

RSL 

Remote service link 

RU 

Request/response unit 

SAA 

Systems Application 
Architecture 

SAP 

OSI service access point 

SBCS 

Single-byte character set 

SDK 

Software developers kit 

SDLC 

Synchronous Data Link 

Control 

SID 

Session identifier 

SIT 

System Initialization Table 

SLO 

Slovenian 

SMIT 

System Management 

Interface Tool 

SMTP 

Simple mail transfer protocol 

SNA 

Systems Network 

Architecture 

SNI 

Switch network interface 

SNT 

Sign-on table 

SQL 

Structured Query Language 

SQL/DS 

Structured Query 
Language/Data System 

SQLCA 

SQL communication area 

SQLDA 

SQL data area 

SS 

Session services 

SSCP 

System services control point 

SVC 

Supervisor call instruction 

SW 

Software 
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SYSADM 

System administrator 

uss 

Unformatted system services 

SYS IN 

System input stream 

VCTCA 

Virtual channel-to-channel 

TCP/IP 

Transmission Control 


adapter 


Protocol/Internet Protocol 

VM 

Virtual Machine 

TDB 

Test data base 

VM/ESA 

Virtual Machine/Enterprise 

TG 

Transmission group 


Systems Architecture 

TIC 

Token-ring interface 
connector/coupler 

VM/VTAM 

VM/Virtual Teleprocessing 
Access Method 

TP 

Transaction program 

VR 

Virtual route 

TPN 

Transaction program name 

VS 

Virtual storage 

TPNS 

Teleprocessing network 

VSE 

Virtual Storage Extended 


simulator 

VSE/ESA 

Virtual Storage 

UNIX 

Operating system developed 
by Bell Laboratories 


Extended/Enterprise Systems 
Architecture 


(trademark) 

VTAM 

Virtual Telecommunications 

UPM 

User Profile Manager 


Access Method 

USERID 

USER 1 Dentification 

WAN 

Wide Area Network 



XID 

Exchange identifier 
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Index 


Special Characters 

#BATCH COS 161 
#CONNECT COS 161 
#CPSVCMG COS 161 
#INTER COS 161 
#INTERSC COS 161 

Numerics 

3174 6 
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167, 167, 168 

4846VARS 

i (1) VM 

19, 25, 55, 59, 59, 60, 61, 69, 72, 73, 74, 76, 76, 79, 100, 
191 

4846VARS 

i (1) APPC 

22, 23, 105, 106, 167, 168, 168 

4846VARS 

i (1) SQL 

25, 26, 27, 28, 31, 60, 60, 61, 61, 61, 62, 67, 69, 71, 72, 
81, 95, 96, 125, 167, 183, 184, 184, 184, 185, 189 

4846VARS 

i (1) OS/2 

32, 32, 32, 34, 99, 101, 101, 105, 106, 136, 137, 183, 183, 
183 

4846VARS 

i (1) AIX 

35, 35, 36, 36, 37, 37, 38, 39, 40, 40, 42, 52, 149, 236, 

237, 238 

4846VARS 

i (1) VTAM 

69, 69, 73, 94, 100, 100, 102, 105, 105, 110, 112, 112, 

122, 136, 156, 157, 191, 196 


id 

NETIND 

CODPIND 

DRDAIND 

CDRAIND 

3745IND 

3174IND 

SNAIND 

PROTIND 

VMIND 

APPCIND 

SQLIND 

OS2IND 

AIXIND 

VTAMIND 






VSEIND 


4846VARS 


(1) VSE 

83, 84, 94, 196 


CICSIND 

4846VARS 

i 

(1) 

CICS 





84, 84, 84, 84, 85, 85, 85, 85, 86, 87, 87, 87, 87 

LU62IND 

4846VARS 

i 

(1) 

LU 6.2 





84, 105, 105, 125, 131, 157, 158, 162, 168, 232, 232, 234, 
235 

LUIND 

4846VARS 

i 

(1) 

LU 





100, 118, 119, 119, 136, 136, 155, 155, 156, 158, 158, 232 

CM2IND 

4846VARS 

i 

(1) 

communications manager/2 





105, 105, 130, 130, 137 

APPNIND 

4846VARS 

i 

(1) 

APPN 





113, 119, 157, 159 

RUIND 

4846VARS 

i 

(1) 

RU 





123, 160 

DCSIND 

4846VARS 

i 

(1) 

DCS directory 





128, 167, 167, 237 

SYSDIND 

4846VARS 

i 

(1) 

system database directory 





130, 165 

APPLIND 

4846VARS 

i 

(1) 

application 





11, 11, 20, 39 

Tables 

id 

File 

Paqe 

References 

CH2T005 

4846CH2 

24 

2 

24 

CH2T010 

4846CH2 

38 

3 

37 

CH2T020 

4846CH2 

41 

4 

40 

CH2T030 

4846CH2 

43 

5 

42, 42 

CH2T040 

4846CH2 

49 

6 

49 

CH3T010 

4846CH3 

60 

7 


VSCT01 

4846CH4 

90 

8 


CH5T010 

4846CH5 

106 

9 


CH5T020 

4846CH5 

128 

10 


CH5T030 

4846CH5 

137 

11 


CH5T040 

4846CH5 

146 

12 


CH6TDB1 

4846CH6 

149 

13 


CH6TDB2 

4846CH6 

150 

14 


CH6TDB3 

4846CH6 

150 

15 

150 

CH6TDA3 

4846CH6 

151 

16 

150 

DWORC 

4846CH6 

170 

17 

170, 171 

DWRC 

4846CH6 

171 

18 

171 

CH7T01 0 

4846CH7 

181 

19 


CH7T020 

4846CH7 

182 

20 


AX2T010 

4846AX2 
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Processing Options 


Runtime values: 

Document fileid . SG244846 SCRIPT 

Document type . USERDOC 

Document style . REDBOOK 

Profile . EDFPRF30 

Service Level . 0029 

SCRIPT/VS Release .4.0.0 

Date . 96.12.04 

Time . 09:34:58 

Device . 3820A 

Number of Passes .4 

Index .YES 

SYSVAR D . YES 

SYSVAR G . INLINE 

SYSVAR S . OFFSET 

SYSVAR X . YES 

Formatting values used: 

Annotation . NO 

Cross reference listing . YES 

Cross reference head prefix only . NO 

Dialog . LABEL 

Duplex . YES 

DVCF conditions file . (none) 

DVCF value 1 . (none) 

DVCF value 2 . (none) 

DVCF value 3 . (none) 

DVCF value 4 . (none) 

DVCF value 5 . (none) 

DVCF value 6 . (none) 

DVCF value 7 . (none) 

DVCF value 8 . (none) 

DVCF value 9 . (none) 

Explode . NO 

Figure list on new page .YES 

Figure/table number separation .YES 

Folio-by-chapter . NO 

Head 0 body text . Part 

Head 1 body text . Chapter 

Head 1 appendix text . Appendix 

Hyphenation . NO 

Justification . NO 

Language . ENGL 

Layout . OFF 

Leader dots .YES 

Master index . (none) 

Partial TOC (maximum level) . 4 

Partial TOC (new page after) . INLINE 

Print example id's . NO 

Print cross reference page numbers .YES 

Process value . (none) 

Punctuation move characters ., 

Read cross-reference file . (none) 

Running heading/footing rule . NONE 

Show index entries . NO 

Table of Contents (maximum level) . 3 

Table list on new page .YES 

Title page (draft) alignment . RIGHT 

Write cross-reference file . (none) 
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